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Author's introduction 

This book will give you and your computer power— the power to rep- 
licate reality in a quite uncanny way. I've included a wide range of pro- 
grams that allow you to experience this power in action— from a 
program that simulates microbes fighting for the right to survive in 
a closed environment, to one that puts you in the cockpit of a partic- 
ularly temperamental plane. 

There is also more to this book than the ready-to-run programs. 
You'll discover how easy it is to analyze real-life situations so that 
you can create your own computer simulations, for both entertain- 
ment and instruction. 

You now have the power. Use it 

Tim Hartnell 
London, 1986 



Getting the Programs 
Running on Your System 

I wrote the programs in this book on an IBM PC. Since you may 
own or use different microcomputers, I've included the full BASIC 
program listings for the three most popular microcomputers: the Ap- 
ple He, Commodore 64, and the IBM PC. BASIC listings that will run 
on IBM PCs, XTs, and compatibles without modification are pre- 
sented throughout the chapters. Program listings specifically for the 
Apple He series and the Commodore 64* are included in the appendix 
at the end of the book. 

I've written the programs in a subset of BASIC that will run on 
most microcomputers with only minimal changes. However, if you 
don't own an Apple He or He, Commodore 64, or IBM PC, some of the 
BASIC statements used in the programs may have to be changed 
slightly to run on your system. I've included the following notes so 
that if you do have to adapt the programs you'll be able to get them 
running as quickly as possible. 

Screen Width 

I've assumed that you have access to the READ and DATA com- 
mands, and that your screen is about 40 characters wide. If your com- 
puter's screen is not quite that wide, you may have to adapt the 
program output by adjusting the PRINT statements. 

Random Numbers 

Some of the programs need random numbers to operate. When 
I want a random number between one and zero, I use the command 
A = RND(l). If I need random integers in the range between 1 and 10 
I use A = INT(RND(1) * 10) + 1. If your system can't use this state- 
ment, you'll have to substitute the form of the RND command that 
will run on your computer. Look up RND or "random numbers" in 
your system's BASIC manual. 

*C64 users see note on p. 171. 



My computer's BASIC generates the same sequence of random 
numbers each time a program is run. In order to get a genuinely ran- 
dom set of numbers, I have to seed the random number generator. I've 
used the rather terrifying-looking statement RANDOMIZE VAL 
(RIGHT$(TIME$,2)) to do this. If your random number generator re- 
quires a seed (again, this will be explained in your BASIC manual), 
replace this statement with your system's equivalent (or leave it out 
altogether, if you don't have an alternative). 

If your computer doesn't use the BASIC statement DEFINT 
(often used in the line after RANDOMIZE as DEFINT A-Z) leave that 
line out completely as well. (See line 490 in the LIFE listing.) 

Capital Letters 

Note that the programs expect input in upper-case letters. If 
your computer can use lower-case letters, and if while running the 
program nothing happens when you type in letter commands, check 
to make sure that you're typing in capital letters. 

Input Statements 

You may also have to change my use of INKEY$ for single char- 
acter input If your computer can't use INKEY$, change these state- 
ments (throughout) to the input statement that works on your 
system. Change A$ = INKEY$ to either INPUT A$ or GET A$ (again, 
see your BASIC manual). The program should run without further 
changes. Use CALL KEY when working in TI Extended BASIC. 

Note that some BASICS (such as Atari BASIC) do not let you in- 
clude a string within an INPUT statement (as in INPUT "string"; A$). 
Replace this with PRINT "string" followed by a separate INPUT state- 
ment 

READlng Arrays 

Some BASICS cannot READ array values directly, as in READ 
A(7) or READ A$(7). You'll have to replace these statements with lines 
that put data in the array indirectly. First read the data into a variable. 
The appropriate array element can then be set equal to the variable, 
as in READ X:A(7) = X or READ X$:A$(7) = X$. 

Printing the Results 

Many of the programs "reprint" the screen after each turn. I've 
used the CLS command to CLear the Screen. If your system doesn't 

x 



use CLS, you'll have to replace it with the appropriate command. Use 
PRINT "CLR" on Commodore and Atari computers, HOME on Apples, 
and CALL CLEAR when working with TI Extended BASIC. 

String-Handling 

String-handling can cause a few problems, so I've kept it to a 
minimum. If your computer does not support the standard LEFT$, 
MID$, and RIGHT$ string-handling commands, consult your BASIC 
manual for the correct replacements. For example, the standard 
MID$(A$(2,3)) can be replaced with SEG$(A$,2,3) in TI Extended 
BASIC, with A$(2 TO 5) on Timex/Sinclair computers, and with 
A$(2,5) in Atari BASIC. 

Delay Loops 

Many of the programs include a delay loop (usually in the form 

FOR I = 1 TO 500:NEXT I). You should adjust these dummy loops 
(which are usually held in subroutines at the end of programs) so that 
the program's displays of instructions and the progress of the sim- 
ulation are clear and easy to follow. See line 550 in the SIMULTA- 
NEOUS EQUATIONS listing for an example of how this works. 

MarlabBes 

If your system won't accept variable names longer than two let- 
ters, enter just the first two letters (such as SC for SCORE). If it will 
accept a full variable name, but only recognize the first two letters, 
you will find that using the full variable name makes the program 
much easier to understand. 

Functions 

A number of the programs in this book use the BASIC statement 
DEF FN to define specific functions which are then "called" from dif- 
ferent parts of the program. Most BASICs include some form of DEF 
FN, the most notable exception being Atari BASIC. Functions can 
usually be replaced with subroutines, or, if the expression or calcu- 
lation is short enough, you can simply replace each use with the 
whole expression. 

High-Resolution Graphics 

The only program you may find difficult to adapt is POINT-DUTY 
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ROBOT, which requires high-resolution graphics (using a command 
like PSET or POINT). If your computer is capable of high-resolution 
graphics, you should consult your system's manual to find out the 
equivalent commands for your machine. If not, you'll find that the 
regular ROBOT LOGO listing is almost as much fun! 

Memory 

It is impossible to predict exactly how much memory the pro- 
grams will take up on your system, but the majority of the programs 
in this book will fit well within 16K machines. In fact, the longest pro- 
gram, FLIGHT SIMULATOR, is less than 8K long. 

If you have trouble getting a program into your system because 
of a shortage of memory, cut out as many REM statements as possi- 
ble (check to make sure that no GOSUB or GOTO calls refer to the 
lines you want to delete) and try to shorten the PRINT statements. 

General instructions 

These changes should cover the adaptations you'll have to make 
to get the programs running on your computer. 

Please be sure to type programs in carefully. Remember that the 
instructions you give to a computer must be exactly correct— or the 
machine won't be able to run your program. If you have trouble get- 
ting a program to run, first proofread your typed-in version against 
the listing given in this book. 

The manual for the BASIC that came with your computer is an 
indispensible tool. Check the manual to see what's wrong with any 
program lines that won't work — or that result in error messages. 
Make sure to use the exact forms of the commands as given in the 
manual. 

Talking to someone who has a lot of programming experience — 
especially if it's with the computer you're using— can also be a tre- 
mendous help. 
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The Power 

of Simulations 



Computer simulations give you the power to try your hand vicari- 
ously at almost any activity you can imagine. Running a multi-mil- 
lion-dollar manufacturing concern, flying to the moon, driving a 
racing car, or running the country as President— all these experi- 
ences can be yours through simulation programs. 

In this book you'll find programs that allow you to take part in 
all these scenarios and more. You'll also be gently introduced to the 
art of creating computer simulations. After you've enjoyed the pro- 
grams in the book, you'll have made a good start on being able to write 
your own. Studying the program listings, observing what the different 
variables represent and the way they interact and how mathematical 
formulas are used to replicate "real life" situations, will show you a 
number of easy-to-apply techniques that you can use in your own 
simulations. 

Despite their obvious entertainment value, computer simula- 
tions are not just elaborate games. More sophisticated simulations 
are being used for training in many situations where reality is too ex- 
pensive, too dangerous, or too complex to allow human beings to 
learn by direct experience. During airplane pilot training many, many 
hours of airtime are clocked in elaborate flight simulators— con- 
trolled, of course, by computers— rather than up in the air. 

One of the real advantages of simulations is that they can be ma- 
nipulated more easily than the real situation. For example, a pilot 
training on a flight simulator could attempt to land during a hurri- 



cane with very little fuel, or an operator at a nuclear power station 
could be faced with the possibility of a meltdown. Operators in con- 
ventional and nuclear power plants around the world are now train- 
ing on simulators, where they can hone their skills without facing 
real catastrophes. One example of the use of computer-controlled 
simulations in this area comes from Australia, where an electricity 
generating board has spent half a million dollars to buy a simulator 
to train its operators. This simulator, developed and marketed by an 
Australian company called Control Simulation Technology, allows a 
controller to simulate a number of emergency situations, so that staff 
can learn to cope with them. This "emergency" training would be im- 
possible without the use of a simulator. 

Another computer simulator, which might be seen as a little bit 
sinister, uses the reactions of a few test subjects to television and 
print advertising to simulate the reaction of a significant portion of 
the population. The simulator, developed by psychologist Marcus 
Tomlian, is claimed to be "the most sophisticated precision system 
for measuring consumer reactions to advertisements." The device, 
called Mind Monitor, is made up of a series of sensors that measure 
the brain and heart activity of a sample group of people. The simu- 
lator runs while an advertisement is shown to the test group, and 
gives a second-by-second readout from the sensors. The readings are 
then fed into the simulator, which analyzes the brain waves and car- 
diovascular readings and uses them to extrapolate the probable re- 
action of the general population. Mr. Tomlian claims that Mind 
Monitor can be used to find weak points in an advertising campaign 
so that the advertiser can "fine-tune" particular campaign elements. 
General Electric is believed to be at the forefront of developing com- 
puter simulations which help gauge viewers' reaction to advertising, 
while one of the world's biggest ad agencies, Young and Rubicam, is 
also investigating the field. 

Simulation Limitations 

A computer simulation, of course, must never be confused with 
the system it is simulating. All simulations are, to greater or lesser 
extents, simplifications of the system they represent Low-level sim- 
ulations, like the programs in this bo6k, and the simulations you are 
likely to create in the next few months, are often drastic simplifica- 
tions. Despite this, they can be surprisingly effective— trying to land 
a plane using our FLIGHT SIMULATION program can be almost as 
nerve-racking as the real thing. 

You'll find that there is as much art as science involved in cre- 
ating effective simulations. The science is in working out the for- 



mulas that represent the interacting elements of the system you are 
trying to simulate. The art is in programming those formulas so that 
your interaction with the simulation is as "life like" and rewarding 
as possible. This means that the output must be realistic, and must 

be presented in a form that is readily understood. 

For most simulations, the speed with which the program re- 
sponds to user input is very important If the simulation is occurring 
in "real time" (that is, a second of time elapsed within the simulation 
is supposed to equal a second of time in real life), it is important that 
the simulation is written so that this one-to-one correspondence be- 
tween the times is as close as possible. 

Simulations can be divided into two groups: those where the 
data is acted on in distinct groups or packages, and those where the 
data values flow into each other repeatedly and continuously. 
Queuing systems, where a set of elements to be processed (like a 
group of customers waiting in line at a bank counter) wait in a queue 
until the system is ready for them, are the main kind of discontin- 
uous situations that are turned into simulations. In the second type 
of simulation, where data values flow into each other, values (such as 
the internal temperature of a nuclear reactor) change constantly over 
time. 

It is important to try and determine, before you start program- 
ming your own simulation, which type of data or process predomi- 
nates within the system you are going to program. 

Any situation where elements are added to a queue at rate A and 
removed at rate B is a candidate for a discrete simulation. There are 
many, many situations like this in real life. Discrete queues exist in 
such different situations as collecting eggs in an old-fashioned farm- 
yard (where a queue can simulate the difference in time between eggs 
being laid and gathered), highway accident victims waiting for am- 
bulances, and airplanes waiting for clearance to take off. 

Some systems can be simulated by either a discontinuous or a 
continuous model. Our SPACE LANDING SIMULATION lets you try to 
land a spacecraft on the moon. This program waits for an input before 
continuing (you type in a number between zero and nine, represent- 
ing "thrust"). If the program did not wait for your key press, but kept 
going through its operational cycle over and over again, checking the 
keyboard during each cycle, and making changes only if it detected 
a valid key press, the simulation would clearly be a continuous one. 
There would be no instant when the velocity and position of the craft 
were not changing. Add a real-time control facility to our FLIGHT SIM- 
ULATION program, and you'd have another non-discrete simulation. 

In the next chapter of this book, we'll look at the basic elements 
of a simulation, and show how to break down a problem so that you 



can create a simulation of it The later chapters explore many differ- 
ent types of simulations. You'll see a number of simulation tech- 
niques in action, and can study the programs to see how the results 
were achieved. The lessons you learn from these chapters can then 
be applied to help you create your own simulations. 

Chapter three looks at loops and feedback, the fundamental ele- 
ments of all simulations, and shows these in action with the SPACE 
LANDING SIMULATION program. From there we move to Monte Carlo 
simulations, where the effects of random inputs on a system are dis- 
cussed. Chapter five presents the predator/prey simulation, where si- 
multaneous equations model the interaction of two kinds of cells 
living within a culture medium, and competing for the right to sur- 
vive. 

The next chapter presents a version of John Conway's classic 
computer simulation LIFE, where birth and death occur in a less 
bloodthirsty way than in our predator/prey simulation. The first ver- 
sion of this program allows you to encode game-starting patterns as 
DATA statements, so that different evolutionary outcomes can be 
studied. Then you'll shown how to make the simple changes that al- 
low your computer to generate the starting colony at random. 

Chapters seven, eight, and nine, which look at robot simula- 
tions, are considerably more ambitious than the earlier ones. In 
these chapters, we will actually examine two simulations at once. 
First, we simulate the action of a computer language interpreter, 
which "understands" commands entered in RCL, a new computer 
language (Robot Control Language). Second, the programs use RCL 
commands to move a little "robot," which leaves Logo-like designs 
as it trundles around your computer's screen. The programs given 
here form a solid basis for developing your own complete "turtle 
graphics" program. 

Artificial intelligence is one of the "hot" areas of computer sci- 
ence at the moment, and this book would not be complete without a 
program or two that showed how a simulation program can appar- 
ently endow a computer with intelligence. Chapter ten lets you at- 
tempt the fairly fruitless task of trying to beat your computer at the 
game CONNECT FOUR, and explains how the program assesses its 
"best" move. The move-selection technique can be adapted to many 
other board games. The following chapter introduces a program that 
replicates an 1890 Spanish machine that plays a particular chess 
endgame. The Quevedo Chess Machine was probably the first genu- 
ine attempt to produce a chess-playing machine, so it is appropriate 
that it is represented here. 

From chess we move into the political arena, and show how the 
economy of the United States can be (admittedly very crudely) mod- 



eled within a computer simulation. You take the role of the President, 
and your job is to try to control the economy. You may well have a 
deeper sympathy for the real occupant of the Oval Office after you find 
your best efforts blowing up in your face. 

Money manipulation lies at the heart of chapter thirteen 's sim- 
ulation of a small stock market in action, as you invest in the fluc- 
tuating fortunes of five companies, trying to reach a financial goal 
you have set for yourself. If you find you have considerable skill in 
this area, you can see if it stands you in good stead in manufacturing. 
DETROIT CITY, presented in chapters fifteen and sixteen, confronts, 
you with an even more difficult challenge. Your task is to try to bring 
an ailing automobile manufacturing company back to a more profit- 
able life. Fail, and you're out of a job. Succeed, and you get a seat on 
the board. 

We move from the world of business simulations to programs 
that simulate leisure activities. GRIDIRON, presented in chapters 
seventeen and eighteen, puts you up against the computer-con- 
trolled Silicon Cowboys, or you can use the program to mediate a 
clash between two human beings. The next program gives you the 
chance to play a three-set game of tennis against your computer. 
Again, if you prefer, you can use the simulation simply to keep track 
of the action, and play against another flesh-and-blood opponent 

In chapters twenty-one and twenty- two, you are at the wheel of 
a racing car, as you try out your driving skill on your choice of Grand 
Prix tracks in Britain, Germany, Italy, or Monaco. The tracks used 
within the program are based on the real-life tracks, but I doubt 
whether the skills you pick up here could very usefully (or safely) be 
transferred to genuine Grand Prix driving on those circuits. 

Finally, in chapters twenty- three and twenty-four, we have our 
simulation de resistance, a complete flight simulator. The program 
simulates an airplane that is fiendishly difficult, but not impossible, 
to fly. You'll find that keeping track of four or five constantly chang- 
ing factors at once will take all your concentration. But the satisfac- 
tion you'll feel on your first successful landing will make it all worth 
while. 

As you can see, we have some fascinating territory ahead of us. 
Let's go. 




The Components 
of a Simulation 



In the simplest terms, a simulation is a computer model of cause and 
effect Event A is linked to event B by equation X. Modify B, and C is 
affected, by linking factor Y. And so on. Isolate the links (X and Y, in 
the preceding examples), and you have the raw ingredients of a sim- 
ulation. 

If you turn on a light switch, electricity will flow through the cir- 
cuit, and the light will come on. Cause and effect are easy to see in 
this situation: 

CAUSE > EFFECT > EFFECT 

SWITCH ON CURRENT FLOWS LIGHT GLOWS 

It would be, of course, a trivial exercise to write a program to simulate 
the result of turning on a light switch. However, this should not blind 
us to the fact that, in essence, all simulations — no matter how com- 
plicated — that you write will show a clear linking between causes and 
effects. 

More Complex Links 

The links, of course, will not always be this simple and straight- 
forward. 

Some effects may only come into play when variables reach trig- 



ger values. For example, the car engine in our GRAND PRIX simula- 
tion blows up if the engine temperature exceeds 200 degrees. Your 
own simulations may have a link that looks like this: 

EVENT X leads, ifA is present, to EVENT Y 
leads, if B is present, to EVENT Z 

Analyze the links and express them in a diagram like the above, per- 
haps substituting mathematical formulas for our "if A, then B" links, 
and you're well on the way to writing your own simulation program. 

The first simulation program in this book (in the next chapter) 
puts you in the position of a pilot trying to land your spacecraft on 
the moon. The causal links in this program are reasonably straight- 
forward, but still manage to produce very interesting and somewhat 
unpredictable outcomes. 

Here are the links. THRUST is the input from the user, each time 
through the loop. 



> FUEL = FUEL - THRUST 

IF FUEL = > > > 

VARIABLE FLAG (VF) = THRUST - 2 
HEIGHT = HEIGHT + VELOCITY + VF/i| 
VELOCITY = VELOCITY + VF 

IF HEIGHT < 10 > > + 

< <--G0T0 NEW THRUST INPUT : 

V 
IF VELOCITY > -9 AND VELOCITY < 5 THEN LAND SUCCESSFULLY 

ELSE + 

CRASH < 



Although this may look a little complex at first sight, it is ac- 
tually fairly simple. You can see that the causal loop diagram looks 
pretty much like a flow chart, and actually contains some lines that 
apparently could be programmed directly. When you look at the pro- 
gram (especially lines 170 to 240) you'll see that some of the lines 
above do appear almost unchanged in the program. 

Feedback 

Causal loops contain elements, or processes, that interact. They 
also contain feedback mechanisms. The results of one series of com- 
putations (in the moonlander simulation, for example, the results are 
the height, velocity, and fuel left) feed back to affect the next input 
(THRUST in this case). In this case the feedback is presented to the 



user on the screen. The user, or player, then makes choices about his 
next input In continuous simulations, the feedback information can 
be used by the program to automatically influence the state of the 
simulation. 

In real life, feedback influences many situations, for example, in 
the operation of a thermostat on a room heater. If the room gets 
colder, the thermostat turns the heater up. When the room becomes 
warmer, the thermostat turns the heater down. In due course, the 
room cools, the temperature drops, and the cycle begins again. 

Feedback does not always lead to a fluctuating output For ex- 
ample, if I am angry with you, I may raise my voice. You shout back. 
I am further angered by you raising your voice and I raise my voice 
some more. You, in turn, are made more angry by my increased vol- 
ume, and shout even more loudly at me. A self-reiriforcing loop is set 
up. If the heater's thermostat was set so that the hotter the room be- 
came, the more heat was produced, a similar self-reinforcing feed- 
back loop would be seen (and felt!). 

Equilibrium Points 

Many feedback loops have an equilibrium point. (In our ther- 
mostat example, the equilibrium point is the final steady tempera- 
ture of the room.) A good simulation may, in effect, challenge the 
program user to discover that equilibrium point There may well be, 
for example, a thrust input built into our moonlander program that 
allows the craft to sink gently down into the lunar dust 

gyegatiye and Positiwe Loops 

A negative feedback loop tends to push the system toward an 
equilibrium point (As the room gets hotter, the thermostat turns the 
heater down. ) A positive feedback loop tends to lead to dramatically 
accelerating or decelerating rates, pushing the system away from an 
equilibrium point (As the room gets hotter, the heater is turned up 
more.) 

It is fairly easy to understand how a single feedback loop can 
form the heart of a simple simulation. However, most situations in 
real life, when analyzed, turn out to be made up of more than one feed- 
back loop. 

For example, in the predator/prey simulation in chapter five, we 
have two life forms whose survival is inextricably bound together. If 
one species dies out, the other will also die. If there are too few pred- 
ators, the number of prey will increase, leading to more food, so more 
predators are born. These in turn will eat more prey. The situation is 



dynamic, constantly changing as the simulation produces and uses 
its own feedback. 

Here is how chapter five's program looks in a causal diagram: 
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A situation like this can either stabilize, or can move so that either X 
or Y becomes dominant, with the other type of cell reduced to an in- 
effectual level. 

Such simulations are fascinating to run, and their outcomes can 
be difficult to predict, even when you know the linking formulas well. 
In a simulation like this, where there are two negative feedback loops 
in operation, X and Y fluctuate about an equilibrium point as they act 
on each other. 

Your own simulation programs will be easier to write if you con- 
sider the behavior of the system you want to model in terms of pos- 
itive or negative feedback loops. 

Some relationships are easier to see than others. For example, 
this diagram shows the relationship between the work involved in 
pumping water from a well, the thirst produced by that work, and the 
amount of water produced: 



amount quantity amount 

drunk of water » pumped 



This is a fairly clear situation, one that is probably simpler than any 
real-life situation you'll try to model with a simulation system. If a 
double loop is needed to show the relationship of something simple 
like this, it is highly likely that the systems you'll want to simulate 
will need two, or more, interacting loops. 



For example, the ecological system of oxygen use and replenish- 
ment on Earth can be shown with the following diagram: 
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Time Against Action 

You may well find that producing a graph of the action of a sys- 
tem makes it easier to understand both the dynamics of the system 
and the causal loops that are acting within it 

If we plot against time the populations of cell type X and cell type 
Y from the runs of chapter five's predator/prey simulation, we get 
graphs like these: 
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These graphs show dramatically how the two life forms are related. 
The crossover points of the lines also suggest where the equilibrium 
points of the system may be. 

So the causal loop diagrams help us find the underlying rela- 
tionships within the system we hope to simulate, and a graph of the 
outputs of the simulation plotted against time allows us to see cause 
and effect in action within the system. This graphed data can help us 
to see the effectiveness or otherwise of our simulation, and helps our 
understanding of what is actually going on as the simulation runs. 

You should now have enough background information to un- 
derstand the processes involved in the creation and running of the 
simulation programs that make up the rest of the book. Once you get 
the programs up and running, you may well want to draw causal dia- 
grams to show the links between elements in these programs. As 
well, the output from some— but not all— of the simulations can be 
graphed, to give further insight into the working of the system being 
modeled. 
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In this chapter, we'll look at our first simulation program, one that 
has been around in one form or another since the earliest days of 
commercial computers. In those days, a lot of expensive corporate 
and academic computer time was consumed by would-be space pilots 
trying to land creaky old space ships on the moon. 

Unlike the predator/prey simulations in chapter five, which use 
simultaneous equations, simulations like this one use a series of for- 
mulas held within a loop. After each run through the loop, the system 
operator receives feedback on the status of particular variables that 
are being modified (in this case, fuel, height, and velocity). On the ba- 
sis of this feedback, the operator decides what input to enter, and 
then waits for the computer to report back on the result of processing 
that new input 

Here is how the series of mathematical operations is repre- 
sented within the program loop. A$ is the user input, signifying 
thrust 

1 60 THRUST = VAL[ AS ] + B 1 

170 FUEL=FUEL-THRUST 

180 FLAG=THRUST-2 

190 THRUST=0 

200 HEIGHT=HEIGHT+VEL0CITY+FLAG/4 

210 VEL0CITY=VEL0CITY+FLAG 

12 



Typically, the main loop has certain exit conditions (such as, in 
this simulation, when you crash, run out of fuel, or manage to land 
safely) that abort the cycle and end the run with a status report to the 
operator. Lines 220 and 240 in the next section of the program check 
to see if the cycle should leave the loop, while 230 sends it back for 
another run through: 

220 IF HEIGHT<=10 THEN 240 

230 IF HEIGHT>1 THEN 1 20 

240 IF VEL0CITY>-9 AND VEL0CITY<5 THEN 2 

90 

Of course, you don't need to know this, or keep it in mind, when 
running a program like the SPACE LANDING SIMULATION in this 
chapter. As far as you're concerned, you're trying to land your ship, 
and the mechanics of handling your input are none of your concern. 

In this program user input is limited to choosing thrust You sig- 
nify a high thrust by pressing the "9" key; a low thrust with the "1" 
key; and zero thrust with the "0" key. Intermediate values are entered 
by touching other number keys. There is no need to press the RE- 
TURN or ENTER key at this point, as INKEY$ (or GET$) are used to 
read the keyboard. 

Let's see how an unskilled pilot makes out when trying to land 
a spacecraft using this simulation: 



FUEL 


VELOCITY 


HEIGHT 


208.33 


-11 .42 


497.03 


208.23 


-9.520001 


507.9 9 


208.13 


-7.62 


517.04 


208.0 3 


-5.72 


524.2 


207.93 


-3.82 


529.45 


207.83 


-1.92 


532.8 


207.7 3 


- . 02 


534.26 


207.6 3 


1.88 


533.81 


207.53 


3.78 


531 .47 


207.43 


5.68 


527.22 


207 . 33 


7.58 


521 .07 


188.23 


10.48 


341 .57 


179.13 


3.38 


332.87 


170.03 


-3.72 


33 1 .28 


160.93 


-10.82 


336.78 


151 .83 


-17.92 


349.39 
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151 .73 


-16.02 


366 


. 84 


151 .63 


-14.12 


382 


. 3 9 


151 .53 


-12.22 


3 96 


. 05 


151 .43 


-10.32 


407 


. 8 


151 .33 


-8 . 42 


41 7 


. 66 


151 .23 


-6.52 


425 


.61 


150.03 


16.28 


372 


. 86 


149.93 


18.18 


356 


. 1 1 


149.83 


20.08 


3 37 


. 47 


149.73 


21.98 


31 6 


. 92 


149.63 


23.88 


294 


.48 


149.53 


25.78 


270 


.1 3 


149.43 


27.68 


243 


. 8 B 


149.33 


29.58 


21 5 


. 74 


149.23 


31.48 


1 8 5 


. 6 9 


149.13 


33.38 


1 53 


. 75 


149.03 


35.28 


1 1 9 


.9 


148.93 


37.18 


84 . 


1 5 


148.83 


39.08 


46 . ! 


51 


YOU HAVE 


CRASHED I NTO 


THE SURFAC 



FINAL INSTRUMENT READINGS WERE; 
FUEL VELOCITY HEIGHT 

148.73 40.98 

NEW CRATER ON MOON 2.25 METERS DEEP 
YOUR SKILL RATING IS -438 



The picture is very different when a skilled space jockey takes 
the controls: 

FUEL VELOCITY HEIGHT 

210.71 4.02 496.05 

210.61 5.92 49 1.57 

210.51 7.82 485 .1 8 

210.41 9.72 476.89 

210.31 11.62 466.7 

210.21 13.52 454.61 

210.11 15.42 440 . 62 

210.01 17.32 424.73 
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209.91 


19.22 


406.94 


200.81 


12.12 


389.5 


191 .71 


5.02 


379.16 


182.61 


-2.08 


375.92 


182.51 


-.18 


377.53 


182.41 


1.72 


377.24 


182.31 


3.62 


375.05 


182.21 


5.52 


370.96 


182.11 


7 . 42 


364.97 


182.01 


9.32 


357.08 



150.91 20.22 126.75 

147.81 19.12 106.81 

144.71 18.02 87.97 

140.61 15.92 70.48 

134.51 11.82 55.59 

126.41 5.72 45.3 

124.31 5.62 39.61 

122.21 5.52 34.02 

118.11 3.42 29.03 

116.01 3.32 25.64 

113.91 3.22 22.35 

111.81 3.12 19.16 

108.71 2.02 16.32 

107.61 2.92 14.08 

106.51 3.82 10.94 

YOU HAVE LAND ED SAFELY ! 

YOUR SKILL RATING IS 9067 

FINAL INSTRUMENT READINGS WERE; 

FUEL VELOCITY HEI GHT 

105.41 4.72 



Here's the listing so you can do your bit for NASA: 

10 REM SPACE LANDING SIMULATION I 

20 RANDOMIZE V A L ( R I G H T $ [ T I M E $ , 2 ) ) 

30 REM **'*************************** 

40 REM SET STARTING VALUES 

50 FUEL = 200 + RND ( 1 J *40 

60 VELOCITY=RND [1 ] *20-6 
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70 HEIGHT 
80 CLS 
90 PRINT 
( 2 4 ) ; " HE 
100 REM * 
110 REM M 
1 20 GOSUB 
130 IF FU 

1 70 
140 A$=IN 
150 IF A$ 
1 60 THRUS 
170 FUEL= 
180 FLAG= 
1 90 THRUS 
200 HEIGH 
21 VELOC 
220 IF HE 
230 IF HE 
240 IF VE 
90 

250 GOSUB 
260 PRINT 
FACE..." 
270 IF HE 
280 GOTO 
290 PRINT 
300 PRI NT 
0*FUEL/ ( V 
31 HEIGH 
320 GOSUB 
330 PRINT 

340 PRINT 
B t 2 4 ] ? " H 
350 GOSUB 
360 GOSUB 
370 IF HE 
380 IF HE 
N MOON "IN 
ETERS DEE 
390 PRINT 
*FUEL/( VE 
400 END 



= 500-RND [ 1 ) *1 

" FUEL"?TAB(12 
I G H T " 



)?" VELOCITY" ?TAB 



AJOR CYCLE 

430 
EL<=0 THEN FUEL=0 STHRUST=0 sGOTO 



KEY 
<"0 
T = V 
FUE 
THR 
T = 
T=H 
ITY 
IGH 
IGH 
LOC 



" OR A $ > " 9 " 
AL( A$) + .1 
L-THRUST 
UST-2 

EIGHT+VELOC 
=VELOCITY+F 
T<=1 THEN 
T>1 THEN 1 
ITY>-9 AND 



THEN 1 40 



ITY+FLAG/4 

LAG 

240 

20 

VEL0CITY<5 THEN 2 



41 

"YOU HAVE CRASHED INTO THE SUR 



IGHT>0 THEN H E I G H T = - H E I G H T 
320 

"YOU HAVE LAN 

"YOUR SKILL R 
EL OCITY-H EIGHT 
T = 

41 

"FINAL INSTRU 



DED SAFELY!" 
ATING I S " I N T [ - 1 
1 I 



" F U E L " ? T A B [ 1 
EIGHT" 

430 

41 
IGHT>=0 THEN E 
IGHT<0 THEN PR 
T(ABS(100*[HEI 
P ! " 

"YOUR SKILL R 
LOCITY-HEIGHT) 



MENT READINGS WER 

2)p" VELOCITY" ? TA 

ND 

INT "NEW CRATER 

GHT+ .2 )/3 ) )/1 00 "M 

ATING IS " I N T [ 1 

) 
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410 PRINT " - ■ 

u 

420 RETURN 

430 PRINT INT( 1 00*FUEL)/1 00 ; 

440 PRINT TAB (1 2 ] ?-INT(1 * V E L C I T Y ) / 1 00 

i 

450 IF HEIGHT>=0 THEN PRINT TAB(24)pINT( 

1 00 *HEIGHT]/1 00 

460 IF HEIGHT<0 THEN PRINT 

470 RETURN 

Once you can land consistently with the program in its current 
form, change line 50 to the following, to create a whole new challenge: 

50 FU EL = 1 00 + R NO ( 1 ] ® 40 
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Monte Carlo 
Simulations 



Monte Carlo simulations are those simulations that depend on 
chance or random factors. The random elements in such programs 
may be weighted to simulate probabilities within specified limits 
(such as the results of throwing a pair of dice) or may be more or less 
genuinely random. In this chapter, you'll see a fairly "open" Monte 
Carlo simulation in action. 

Our program is designed to simulate the effect of Brownian 
movement on a very small particle suspended in a fluid. The random 
motion of such a particle, which is observed when the particle is less 
than about one-thousandth of a millimeter in diameter, is caused by 
the impact of the atoms or molecules of the fluid on the particle. 
Brownian movement can be seen as smoke disperses in still air, or 
as ink is diffused in a tumbler of water. It's named after Robert Brown, 
a Scottish botanist who in 1827 first noted, but was unable to explain, 
the movement seen when looking through a microscope at a solution 
of pollen grains in' water. 

The simulation is shown on a 10 by 10 grid, with a single pollen 
grain, depicted by "0". When you run the program, you enter the po- 
sition where you want the grain to start, and also set up a "goal" po- 
sition. The simulation ends when the pollen grain reaches the goal 
position. 
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Here's how it begins: 

ENTER FIRST START CO-ORDINATE [LESS 

THAN 1 ) 

? 3 

ENTER SECOND START CO-ORDINATE (LESS 

THAN 10) 

? 4 

ENTER FIRST END CO-ORDINATE (LESS 

THAN 10) 

? 6 

ENTER SECOND END CO-ORDINATE [LESS 

THAN 10) 

? 7 

MOVE 1 



And here are some screen printouts as the simulated Brownian 
movement makes the grain drift about: 



MOVE 5 
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MOVE 9 



. X 



MOVE 11 



Finally, on the fourteenth move, the pollen grain reaches the tar- 
get position, and the demonstration ends: 



MOVE 1 4 







D EM ONSTRATI ON OVER 
20 



Here's the listing so that you can explore this Monte Carlo dem- 
onstration: 

10 REM MONTE CARLO DEMONSTRATION 

20 GOSUB 3 7 s R E M INITIALIZE 

30 REM **************************** 

40 REM MAJOR CYCLE 

50 GOSUB 1 00 : REM PRI NT 

60 IF P=EP AND Q=EQ THEN PRINTgPRINT »DE 

MONSTRATION 0VER»iEND 

70 GOSUB 230gREM GENERATE MOVE 

80 GOTO 50 

90 REM **************************** 

100 REM PRI NTOUT 

110 A$(P g Qj=»0» 

120 M=M+1 

130 CLSg PRI NTs PRINT 

140 PRINT »M0VE"M 

150 FOR X=1 TO 10 

160 FOR Y=1 TO 10 

170 PRINT A$[X,YJ f « »; 

180 NEXT Y 

190 PRINT 

200 NEXT X 

21 RETURN 

220 REM **************************** 

230 REM GENERATE MOVE 

240 A $ [ P , Q ] = •> . « 

250 G=0 

260 T = INT ( RND [ 1 ) *4] +1 

270 ON T GOSUB 3 1 , 3 2 , 3 3 , 3 4 

280 IF G=0 THEN 260 

290 IF G=1 AND R N D [1 } > „ 5 THEN 260 

300 RETURN 

310 IF P>1 THEN P=P-1 S G=G+1 gRETURN 

320 IF P<10 THEN P=P+1 s G=G+1 s RETURN 

330 IF Q>1 THEN Q= Q-1 g G = G + 1 g R ET U R N 

340 IF Q<10 THEN Q=Q+1 5 G=G+1 s RETURN 

350 RETURN 

360 REM **************************** 

370 REM INITIALIZE 

380 CLS 

390 RANDOMIZE VAL ( RIGHT! ( TIM E$ , 2 ] ] 

400 DIM A$ (1 ,1 J 
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410 FOR X=1 TO 10 

420 FOR Y=1 TO 10 

430 A$(X 9 Y)=" " 

440 NEXT Y 

450 NEXT X 

460 PRINTsPRINT 

470 PRINT "ENTER FIRST 



START CO-ORDINATE 



THAN 10]" 



CO-ORDINAT 



[ LESS 
480 INPUT P 

490 IF P<1 OR P>10 THEN 480 
500 PRINT "ENTER SECOND START 
E [LESS THAN 10)" 
510 INPUT Q 

520 IF Q<1 OR Q>10 THEN 510 
530 PRINTsPRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10]" 
550 INPUT EP 

560 IF EP=P OR EP<1 OR EP>10 THEN 550 
570 PRINT "ENTER SECOND END CO-ORDINATE 
(LESS THAN 10)" 
580 INPUT EQ 

590 IF EQ=Q OR EQ<1 OR EQ>10 THEN 580 
600 A$[P p Q)="0" 
610 A$(EP P EQ)="X» 
620 RETURN 
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We can also create simulations that use simultaneous equations to 
show the effects of two interacting factors on each other. These equa- 
tions are often used in predator/prey simulations like the one we'll 
examine in this chapter. 

In this example, we have two forms of cell living in a culture. 
Both cells feed on nutrients in the culture medium, and attempt to 
reproduce as the simulation runs. Cell X also needs to consume cell 
Y in order to survive. If there are too many of cell X, it will kill off all 
of cell Y, and will then die itself. If there are none of cell X, cell Y will 
reproduce wildly, and choke the medium. 

You are allowed to set the starting numbers of cells X and Y in 
each run of the simulation. You have to try and create a population 
balance that will allow the cell colony to survive for as long as pos- 
sible. Although the degree of aggressiveness of cell X toward Y 
changes from run to run of the program (so that you can't just learn 
which numbers will always work), it does not change within a single 
run, so you can try various combinations to see how they behave. 
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The program starts by reporting the decay factor, which is the 
degree of aggressiveness cell X displays toward Y. It then asks you to 
enter the starting populations: 

DECAY FACTOR IS .14 8 9 6 6 

ENTER NUMBER OF CELL X TO 
START [LESS THAN 40 ] 
? 37 

WE HAVE 37 X CELLS 

ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40 ) 
? 25 

Once you've made your choice, the program works out the life 
history of your cell cultures, keeping you up to date: 



TIME ELAPSED s 1 
37 CELL X 
25 CELL Y 

TIME ELAP SED s 2 
3 5 CELL X 
17 CELL Y 

TIME ELAPSED : 3 
46 CELL X 
9 CELL Y 

TIME ELAPSED : 4 
77 CELL X 
2 CELL Y 

TIME ELAPSED s 5 
37 CELL X 
1 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 
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THE BEST SURVIVAL TIME SO FAR IS 5 
DO YOU WANT A NEW RUN (Y OR N)? 



The program also keeps track of the "longest life so far. " It gives 
you an opportunity, in subsequent runs, to see the effect of different 
starting populations: 

ENTER NUMBER OF CELL X TO 
START (LESS THAN 40 ] 
? 25 

WE HAVE 25 X CELLS 

ENTER NUMBER OF CELL Y TO 
START [LESS THAN 40 ] 
? 37 



TIME ELAPSED: 4 
2 CELL X 

35 CELL Y 

TIME ELAPSED? 5 
1 CELL X 

36 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 

THE BEST SURVIVAL TIME SO FAR IS 

ENTER NUMBER OF CELL X TO 
START [LESS THAN 40 ) 
? 38 

WE HAVE 38 X CELLS 

ENTER NUMBER OF CELL Y TO 
START (LESS THAN 40 ] 
? 38 
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TIME ELAPSED : 2 
13 CELL X 
34 CELL Y 

TIME ELAPSED : 3 
6 CELL X 
33 CELL Y 

TIME ELAPSED s 4 
3 CELL X 

33 CELL Y 

TIME ELAPSED : 5 
1 CELL X 

34 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 5 TIME PERIODS. 

THE BEST SURVIVAL TIME SO FAR IS 5 

DO YOU WANT A NEW RUN [Y OR N)? 

ENTER NUMBER OF CELL X TO 
START ( LESS THAN 40 ] 
? 22 

WE HAVE 22 X CELLS 



ENTER NUMBER OF CELL Y TO 
START [ LESS THAN 40 } 
? 30 



TIME ELAPSEDs 3 

13 CELL X 
23 CELL Y 

TIME ELAPSEDs 4 

14 CELL X 
21 CELL Y 
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TIME ELAPSEDs 5 
15 CELL X 

18 CELL Y 

TIME ELAPSED: 6 

1 9 CELL X 
15 CELL Y 

TIME ELAPSED; 7 
27 CELL X 
12 CELL Y 

TIME ELAPSED; 8 
41 CELL X 
7 CELL Y 

TIME ELAPSED: g 
74 CELL X 
2 CELL Y 

TIME ELAPSED : 1 
32 CELL X 
1 CELL Y 



YOUR CELL CLASH SIMULATION SURVIVED 
FOR 10 TIME PERIODS. 

THE BEST SURVIVAL TIME SO FAR IS 10 

DO YOU WANT A NEW RUN [Y OR N]? 
OK 



The most crucial parts of the program are the equations that cal- 
culate the cell populations. These are lines 330 and 340: 

330 CP=CP+ ( ( 8*CP-CP*EP/3 J *FD J 
340 EP=EP+ ( [ 4*EP-EP*CP] * .01 ] 



Modify parts of these program statements and watch the effect this 
has on the progress of your simulation. You'll probably be surprised 
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to see the far-reaching effects of even the most apparently minor 
change. Here's the listing: 

10 REM SIMULTANEOUS EQUATIONS 

20 CLS 

30 RANDOMIZE V A L [ R I G H T $ [ T I M E $ t 2 ] ) 

40 HS=0 

50 FD = RND ( ] 

60 PRINTsPRINT "DECAY FACTOR IS"FD 

70 G0SUB 550 

80 CLS 

90 PRINTsPRINT 

100 PRINT "ENTER NUMBER OF CELL X TO 

START (LESS THAN 40j" 
110 INPUT CPsIF CP<1 OR CP>39 THEN 110 
120 PRINT s PRINT 

130 PRINT "WE HAVE"CP"X CELLS" 
1 40 PRINT iPRINT 
150 PRINT "ENTER NUMBER OF CELL Y TO 

START [LESS THAN 40)" 
160 INPUT EPsIF EP<1 OR EP>39 THEN 160 
170 CLS. PRINTsPRINT "PLEASE STAND B Y B „ „ " 

1 BO GOSUB 550 g CLS 

1 90 DA=1 

200 IF CP>EP/FD THEN CP=EP/FD 

210 PRINT " " 

220 PRINT "TIME ELAPSED* "DA 

230 PRINT INT(CP]"CELL X" 

240 PRINT INT[EP)"CELL Y» 

250 REM *************************** 

260 REM MAJOR CYCLE 

270 GOSUB 550 

2B0 DA=DA+1 

290 PRINT " " 

300 PRINT "TIME ELAPSEDg" DA 

310 IF CP>EP/FD THEN CP=EP/FD 

320 REM EQUATIONS FOLLOW? MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 

330 CP=CP+[ (8*CP-CP*EP/3) *FD) 

340 EP = EP+[[4*EP-EP*CP) * a 01 ] 

350 PRINT INT[CP]»CELL X" 

360 PRINT INT(EP)"CELL Y» 

370 IF EP<2 OR CP<2 THEN 410 
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380 

390 

400 

41 

420 

430 

RVI V 

440 

450 

460 

IS" 
470 
480 



490 
] ?" 
500 
51 
520 
530 
540 
550 
560 



GOSUB 550 
GOTO 280 

REM ******************** #$#,5. ^ 3 ,5, 

IF DA>HS THEN HS=DA 
PRINT.- PRINT 

PRINT "YOUR CELL CLASH SIMULATION SU 
ED " 

PRINT "FOR "DA "TIME PERIODS." 

PRINT " 

_ " 

PRINT "THE BEST SURVIVAL TIME SO FAR 

HS 

GOSUB 550 

PRINT » 



PRINT "DO YOU WANT A NEW RUN (Y OR N 

A$=I NK EY$ 

IF A$<>»Y" AND A $ <> » N " THEN 500 

IF A$=»Y» THEN CLSsGOTO 60 

PRINT "OK»sPRINT:PRINTsEND 

REM *************************** 

FOR J=1 TO 2000SNEXT J 
RETURN 
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6 



The Meaning 
of Life 



In the previous chapter we looked at a program that simulated the 
action of two competing life forms occupying a single space. In that 
simulation, the growth and decay of the cells were governed by si- 
multaneous equations. In this chapter, we'll look at two versions of 
a simulation classic, John Conway's LIFE. This simulation models 
the growth and development of a colony of cells living on a grid. 

Developed by Conway when he was at Gonville and Caius Col- 
lege, in Cambridge, England, LIFE produces some amazing effects, 
whose richness is not even hinted at by the rules under which the 
cells live, reproduce, and die. To show this, we'll look at a colony of 
cells that starts off forming a square. This particular colony dies off 
after three "generations": 

GENERATION 1 



xxxxx xxxxx 

XX XX 

XX XX 

XX XX 

xxxxx xxxxx 
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GENERATI ON 2 



XXX XXX 

XXXXX XXXXX 

XX X XX XX X XX 

XXX XXX XXX XXX 

XX X XX XX X XX 

XXXXX XXXXX 

XXX XXX 



GENERATION 3 

x X 

XX XX 

X X X X 

: xx ; 

x x x x 

xx xx 

x X 



Another colony, which begins life in an "X" shape, evolves as 
follows (the program prints a "mirror image" colony to the right of 
the original colony in all these sample runs). 



GEN ERAT ION 1 



XX XX 

XX XX 

X X 

XX XX 

X X X X 

31 



GENERATION 2 



XXX 
X X 
XXX 



XXX 
X X 
XXX 



GENERATI ON 3 



X x 

XX x x 

XX XX 

XX x x 

x x 



GENERATION 4 



X 

XXX 

XX XX 

XXX 

X 



X 

XXX 

XX XX 

XXX 

X 



GENERATI ON 5 



XXX 

X x 

X x 

X x 

XXX 



XXX 

X x 
X x 
X x 

XXX 
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GENERATI ON 6 



X X 

XXX XXX 

XXX XXX 

XXX XXX XXX XXX 

XXX XXX 

xxx XXX 

x X 



GENERATI ON 7 

XXX XXX 

X X X X 
x X X X 
X X X X 

xxx xxx 



GENERATION 8 

X X 

X X 

X X 

XXX XXX xxx xxx 

x x 

X X 

x x 



If we continue to run this simulation, each horizontal set of X's 
flips to become a vertical set, and the vertical sets become horizontal. 
This pattern of three alternating from horizontal to vertical is one of 
a number of patterns that regularly crop up in runs of the program. 
This particular pattern is commonly known as "traffic lights." 
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The Rules 

Conway's rules are not very complicated, but they are sufficient 
to give rise to the marvelous effects we've been looking at They as- 
sume each cell has eight neighbors. (We keep the outermost ring of 
cells empty; these are checked, but not printed out) If a cell has two 
or three neighbors, it survives to the next generation. If a cell has four 
neighbors, it dies out in the next generation due to overcrowding. If 
there are exactly three cells neighboring an empty cell, a cell is 
"born" in that location in the next generation. 

The rules are applied simultaneously across the whole grid. We 
do this by having a second grid, which records the changes as the 
first grid is scanned. The second grid is then copied into the first be- 
fore it is printed. 

This is the listing that produced the effects above. The DATA 
statements at the end cart be, of course, changed to whatever initial 
colony you desire: 



1 o 
so 

30 
40 
50 

60 
70 

80 
90 
1 00 
1 1 
1 20 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
21 
220 
230 



REM CONWAY'S LIFE SIMULATION 
REM DEFINED INITIAL COLONY 
G0SUB 460sREM INITIALIZE 

REM ************************* 

REM MAJOR CYCLE 

GENERATI0N=GENERATI0N+1 

G0SUB 290lREM PRINTOUT 

G0SUB 1 1 : REM EVOLVE 

GOTO 60 

************************* 

EVOLVE 
X=2 TO 12 
Y=2 TO 12 



REM 

REM 

FOR 

FOR 

C = 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



A$ 
A$ 
A$ 
A$ 
A$ 
A$ 
A$ 
A$ 
A$ 



X-i,Y-1) s "X n THEN C=C+1 
X - 1 , Y J « " X " THEN C = C + 1 
X-1 P Y+1)="X" THEN C=C+1 
X„Y-1l="X» THEN C=C+1 
X , Y + 1 ) = " X " THEN C=C+1 
X+1 P Y-1]="X" THEN C = C + 1 
X + 1 s Y ) = " X » THEN C=C+1 
X + 1 B Y + 1 ] = " X " THEN C=C+1 
X s Y ) = » X " AND C<>2 AND C<>3 



THE 



N B $ [ X , Y ) = " " 
240 IF A$(X,Y)=» 
"X" 



AND C = 3 THEN B$ (X, Y) = 
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250 NEXT Y 

260 NEXT X 

270 RETURN 

280 REM ************************* 

290 REM PRINTOUT 

3 C L S 

31 PRINT 

320 PRINT TAB[4] 1 " G E N E R A T I N » G E N E R A T I N 

330 PRINT 

340 FOR X=2 TO 12 

350 FOR Y=2 TO 12 

360 A$(X,Y]=B$(X,Y] 

370 PRINT A$(X, Y) p 

380 NEXT Y 

390 FOR Y=12 TO 2 STEP-1 

400 PRINT A$ [X, Y] ; 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM ************************* 

460 REM INITIALIZATION 

470 CLS 

480 RANDOMIZE VAL [ RIGHT! [ TIME$ , 2 ] ] 

490 DEFINT A-Z 

500 DIM A$ [1 3,1 3) ,B$ [1 3,1 3] 

510 PRINTgPRINT » PLEASE STAND BY,.," 

520 FOR X=1 TO 1 3 

530 PRINT 14-Xg 

540 FOR Y=1 TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A$[X,YJ=» » 

570 B$[X,Y)=A$[X,Y) 

580 NEXT Y 

5 90 NEXT X 

600 READ D s IF D = 99 THEN 

610 READ EsA$(D,E)=»X" 

620 GOTO 600 

630 GENERATIONS 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 

700 DATA 99 



630 
B $ ( D , E J = " X " 
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Colonies at Random 

If you prefer to let your computer generate a starting colony at 
random, leaving you simply to admire its work, add the following 
lines: 

555 IF RND(1]> B 5 THEN A$ (X 5 Y ) =»X» s GOTO 5 
70 

595 GOTO 630 

The evolution of a randomly generated colony is always fasci- 
nating to watch, as these sample runs indicate: 

GENERATION 1 

X X XXXXXXXXXX X X 
X XX XX XX x 

XXX XX XXX 

x xxxxxx x 

X XX x 

XX xx 

X XX XXXXXX XX X 

X XXX X X XXX X 

x xxxxxx x 

XXX x x x 

XXXXXX XX XXXXXX 



GENERATI ON 2 

XX XXXXXX XX 

XX X XX X XX 

XX XXX XX XXX XX 

X XX X 

XX 

XXX XX XXX 

XXXXX XXXXXX xxxxx 

XX XX XX XX 

XXXXXXXXXX 
X XX XX XX X 
X XXX XXX X 
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GENERATION 3 

X XXXX X 

XX XX XX 

XX X X XX X X XX 

XXXX 

X XXXX X 

X X XX XX 

X XXXXXXXXXXXX X 

XX XX XX XX 

XX XXXXXX XX 

X XX XX XX X 

XX XX 



GENERATION 9 



XX 
XX 



XX 

X 

XX 



X X 

X X 

X XXXX X 

XXXX 

XXXX 

X X 

XX XX 



XX 
XX 



XX 

X 

XX 



XX 
XX 



GENERATI ON 1 2 



XXX XXX 
XXXXXXXXXX 
XX XX XX 

XXXXXX 
XXXX 
XXX XXX 

X X 



XX 
XX 
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GENERATION 2 4 



XX 
XX 



XXX 
X X 
XX X 



XXX 
X X 
X XX 



XX 
XX 



XX 
X X 
X 

XX 
XX XX 
X X 
XX 



XX XX 



XX 
X X 
X 
XX 

XX XX 
X X 
XX 



GENERATI ON 39 



XX 



XX 



X XX XX X 



XXX xxx 

XX xxx X X XXX XX 

X XXX XXX X 

XXX XX XX xxx 

XX XXXXXXXX XX 

X X XX XX XX X X 

X XX XX XX X 

XX XX 

XX xx 



GENERATI ON 51 



XXX X 

X xxx 

X X 

xxx 



X xxx 
xxx X 

X X 

xxx 



GENERATI ON 62 



X 
X X 
X X 

X 



XX 
XX 



XX 
XX 



X 
X X 
X X 

X 
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Mi ! 



In this section of the book we will create programs that perform two 
simulations at once. First, the programs simulate the behavior of a 
robot who follows a series of commands we enter before the program 
is run. Second, the programs emulate a computer language inter- 
preter, enabling the computer, and the computer-controlled robot, to 
understand instructions we give it in a Robot Control Language RCL, 
developed especially for this book. 

In mid 1983 Muse Software, of Baltimore, released a superb ro- 
bot simulation program under the name of Robotwar. This program 
allows you to pre-program a number of robots before setting them 
loose on a computer-screen battlefield to fight it out for victory. Ro- 
botwar allows you to program the robots in a language which is es- 
sentially English, with a few BASIC commands (such as GOTO and 
GOSUB) thrown in. 

Our program, ROBOT LOGO and POINT-DUTY ROBOT (which is 
derived from the first program), are much simplier than Robotwar, 
yet still produce satisfying, and surprisingly interesting, results. 

We'll look first at ROBOT LOGO. To show you what it can do, and 
to give you an idea of what an RCL listing looks like, here's a program 
that gets the robot to trace out my initials on the screen, leaving a 
trail as it goes: 
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GO 6,10 
FACE 90 
FORWARD 7 
GO 8,26 
FORWARD 5 
PR 

GO 6,16 
FACE 180 
FORWARD 6 
GO 6,26 
FORWARD 6 

GO 6,34 
FORWARD 6 
PRINTOUT 
* 



This is the result of running that program: 

XXX X, XXX X X 

X XX 

X X X X X X 

X XX 

X XX 

X XX 



There are twelve commands in RCL, any of which, included in a 
program, can be abbreviated to its first two letters. The RCL program 
is written into the overall BASIC program, as a set of up to twenty 
DATA statements, terminated with a DATA statement that just con- 
tains an asterisk. These DATA lines are kept near the beginning of 
the program. The current line being processed appears at the top of 
the screen as the progam is running, so you can see the relevant line, 
and its effect, as it occurs. 

The Language 

Here is the complete vocabulary of RCL: 

START (abbreviated to ST) Start again. 

PRINTOUT (PR) Stop the robot action, clear the screen, and print 

out the current situation before continuing with the program 

run. 
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FORWARD (FO) This is followed by a single number, and it tells the 
robot to move forward the number of "steps" or "spaces" indi- 
cated by the number that follows the command. 

BACK (BA) The opposite, naturally enough, of FORWARD. 

TURN (TU) Followed by a number, this command turns the robot 
through the specified number of degrees; it starts a run at zero 
degrees, designated as facing the top of the screen. 

HOME (HO) Returns the robot to the center of the screen, facing up- 
wards. 

CLEAN (CL) Cleans the previous steps away. (The action of this 
command, like the others, will become clear once you use it) 

GO This is followed by two numbers, which are the coordinates to 
which the robot moves without leaving a trail between its old po- 
sition and the new one. 

RANDOM (RA) Moves the robot to a randomly chosen position on 
the screen; acts as a random GO. 

REPEAT (RE) Followed by a number, this command allows you to 
cycle through a section of the program a specified number of 
times before continuing. This can produce some fascinating ef- 
fects, as you'll see shortly. 

END REPEAT (EN) Terminates the REPEAT cycle; all the com- 
mands in the RCL program that lie between REPEAT and END 
REPEAT will be cycled through the number of times specified. 

FACE (FA) Followed by a number, this turns the robot to face an ab- 
solute angle, with the top of the screen as zero degrees (whereas 
TURN is relative to the current angle the robot is facing). 

This short set of commands can be combined to produce many 
startling results. If you are at all familiar with the Logo programming 
language, you will recognize that several of the RCL commands are 
very similar to the turtle graphic commands in Logo. Logo was de- 
veloped under Seymour Papert, with Marvin Minsky, Harold Abelson, 
and Andrew diSessa, at the Massachusetts Institute of Technology by 
the Artificial Intelligence Group. It was designed so that the way it 
was used by programmers would be closer to the way human beings 
usually solve problems, rather than being heavily influenced by how 
machines run programs. Of course, our RCL is pretty limited in com- 
parison with Logo, although it can easily be extended to whatever 
level of complexity you like. Studying the listing will show you how 
it is relatively easy to write a program that interprets another pro- 
gram written in a language you have created. 

Despite its limitations, you can have a lot of fun with RCL — as 
the following sample runs indicate. 
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This RCL program produces octagons: 

OCTAGON 

GO 11,35 
REPEAT 8 
FORWARD 4 
TURN 45 
END REPEAT 
PRINTOUT 



X X X X X 

X X 

X X 



X X 

X X 

X X 

X X 

X X 

X X 

X X 

X X 

X X X X X 



You'll get diamonds with this one: 

DIAMONDS 

RANDOM 
FACE 45 

REPEAT 4 X 

FORWARD 2 XX 

TURN 90 X x 

END REPEAT X X 

PRINTOUT X x 

START AGAIN X X 

« X 
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And this RCL listing creates squares: 

SQUARE 

GO 11,35 XXXXXXX 

REPEAT 4 X y 

FORWARD 6 X y 

TURN 90 Y v 

END REPEAT * * 

p rintout XXXXXXX 



Descending triangles are easy. Note that we're using abbreviated 
commands in this RCL listing: 

X 

X X 
X X 

X X X X 

X X 
X X 

X X X X 

X X 
X X 

X X X X 

X X 
X X 

X X X X 

DESCENDING TRIANGLES x x 

X X 

GO 5,5 X X X X 

RE 6 XX 

F0 3 XX 

TU 135 X X X X 

FO 3 X 

TU 135 

FO 3 

FA 90 

FO 3 

FA 1 80 

FO 3 

FA 

PR 

EN 

« 
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The next RCL program gets our robot to walk down stairs: 



XXX 



STAIRS 

GO 1 , 1 
RE 6 
FACE 90 
FORWARD 3 
FACE 180 
FORWARD 3 
END REPEAT 
PRINTOUT 
* 



X X 



X X 



X X 



X X 



X 
X 
X 
X X 



If you're feeling very creative, you can also get the robot to trace 
out pictures, like my initials earlier, or this "side view of a table": 

XXXXXXXXXXX 

X x 

X x 

x x 

X X 

X 
X X 

X x 

SIDE VIEW OF TABLE x X 

X x 

GO 20,50 
FACE 315 
FORWARD 9 
FACE 90 
FORWARD 10 
FACE 225 
FORWARD 10 
PRINTOUT 
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Writing a Program 

As I said earlier, the RCL program is held in a series of DATA 
statements near the beginning of the listing: 

100 REM ROBOT LOGO 

110 GOSUB 1730:REM INITIALIZE 

120 GOTO 490 

130 REM ***********#**«***««9****«*« 

140 REM 

150 REM 

16 REM 

1 70 REM 

180 R EM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

31 REM 

320 DATA "*" 

330 REM **************************** 



Here's a listing to create random octagons. We can learn a lot 
about RCL by examining it: 

OCTAGON 

RANDOM 
R EPEAT 8 
F OR WARD 2 
TURN 45 
END REP EAT 
PRINTOUT 
START AGAIN 
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It begins with RANDOM, which moves the robot to a randomly 
chosen position on your screen. The dimensions of the screen are 
included within the program (see lines 1770 and 1780 in the listing 
in the next chapter), so it can be changed easily to work on your sys- 
tem no matter what its screen size. 

Once the robot is in place, the computer comes to the line RE- 
PEAT 8. This tells it, naturally enough, that the next section of the 
program (down to the END REPEAT) is to be run through eight times. 
The robot moves FOWARD 2, then TURNs through 45 degrees. Once 
it has done this eight times, it has traced out an octagon, which 
PRINTOUT puts on the screen for you to see: 

X X 

X X XXX 

XXX X X 

XXX X XXXX 

XX X XXX 

XX X X 

X XXX X 

A A A A A A 

XX XX 

XXX XXX 



XXX XXX 



X 


X 


X 


X 


X 




X X 


X 


X 


X 


• 




X 


X X 


X X 




X 






X 


X X 


X X 




X 






X 


X X 


X X 


X 








X 


X X 


XXX 


X 








X 


XXX 



XXX 



The final command, START AGAIN, sends action back to the first 
line of the program, to select a new random robot position. RCL au- 
tomatically rejects values that are off the screen, so the program will 
not crash if you try to walk off the edge of the robot's world. It will 
simply draw the required material "off the screen," as it were, and 
then continue at the correct place when it returns to the screen. 

From the examples we've looked at, you can see that the robot 
can be made to do a great deal. The biggest limitation is in the TURN 
and FACE commands. In its present form, it can only work in incre- 
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ments of 45 degrees, and will change any angle into the closest mul- 
tiple of 45 before it sends the robot out along that path (see lines 1040 
and 1620). This restriction was necessary in order to ensure that, de- 
spite the very rough resolution of the grid upon which the robot 
walks, a reasonable picture was still drawn by the robot's trail. 

The full ROBOT LOGO listing is presented in the next chapter. 



47 



8 



The 
ROBOT LOGO 

Listing 



You're sure to have a lot of fun using this listing to get the robot to 
follow programs you have devised. Simply place them, in the form of 
DATA "REPEAT 8", in lines 140 though to 310 (note the use of quo- 
tation marks around the RCL statement). Line 320, where you see a 
lone asterisk in the DATA statement, tells the program that it has 
come to the end of your listing. 

I got my program listings to the printer by running the program, 
then entering and running the following directly: 

FOR Z=1 TO 20:LPRINT A$(Z):NEXT Z 

In its present form the program can cope with RCL programs 
that are up to twenty lines long. If you want it to accept longer pro- 
grams, simply change the 20 in lines 530 and 1820 to the number of 
commands you want to include. Remember that you need to allow for 
a command slot to hold the asterisk (end-of-program flag) line. 

Here, then, is the listing so that you can run your own robot: 

100 REM ROBOT LOGO 

110 G0SUB 1 7 3 s R E M INITIALIZE 

120 GOTO 490 
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1 30 

1 40 

1 50 

1 60 

1 70 

1 80 

1 90 

200 

21 

220 

230 

240 

250 

260 

270 

28 

290 

300 

31 

320 

330 

340 

350 

360 

370 

380 

390 

400 

41 

420 

430 

440 

450 

460 

470 

480 

490 

500 

51 

520 

530 

540 

550 

560 



REM 

REM 

REM 

R EM 

REM 

REM 

REM 

R EM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

R EM 

REM 

R EM 

REM 

DAT 

REM 

REM 

UX = 

RET 

REM 

R EM 

CLS 

PRI 

FOR 

FOR 

PRI 

NEX 

PRI 

NEX 

R ET 

REM 

REM 

COU 

R EA 

IF 

IF 

REM 

REM 

PSN 



#*####*##### << # #<e##s j t! j, <C!Sej j tJfe) j (J j t!{C!j( 



A H * it 



INT UX P AX 
INT[ UX+.5) SAX=INT( AX+ a 5] 
URN 

PRINT OUT 
: R E M OR LOCATE 1,1 OR SIMILAR 
NT " STEP" PSN" > " ?A$(PSN] SPRINT 

J=1 TO DEPTH 

K=1 TO BREADTH 
NT Z$( J,K] | 
T K 
NT 
T J 
URN 

READ PROGRAM 
NT=C0UNT+1 
D A$ [ COUNT) 

A$(COUNT)="*» THEN 550 
C0UNT<20 THEN 500 

EXECUTE PROGRAM 
=QsREM PROGRAM STEP NUMBER 
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570 

580 

590 

600 

61 

620 

630 

640 

UT 

650 

660 

670 

680 

6 90 

700 

71 

720 

730 

740 

750 



PSN=PSN+1 

IF PSN=21 THEN 580sREM END 

FLAG=0 

M$=A$ ( PSN] 

IF M$="*" THE 

N$=LEFT$ [ M$ , 2 

IF N $ = " S T " T H 

IF N$="PR" TH 



N 61 s R EM END 

) 

EN 560:REM START 

EN GOSUB 3 B : R E M 



AGAIN 
PRI NTO 



IF N $ = " F " TH 
IF N$="BA" TH 
IF N $ = " T U " TH 
IF N $ = " HO" TH 
IF N $ = " C L " TH 
IF N $ = " GO" TH 
IF N$="RA" TH 
IF N$="RE" TH 
IF N$="EN" TH 
IF N$="FA" TH 
ON FLAG GOSUB 
,1260,1 400 , 1 460 ,1 
760 GOTO 570 
770 REM ##*#*##** 
780 REM 

790 M$ = MID$ ( M$ , 4 ) 
800 IF ASCt M$ )=87 
8 10 F $ = " F " 
820 NUM=VAL ( M$ ] 
830 FOR E=1 TO NU 
B40 IF UX<1 OR UX 
850 IF AX<1 OR AX 
860 Z$(UX ( AX] =T$ 
870 REM DELETE TH 
TWO LINES IF BET 
880 IF F$="F" THE 
890 IF F$="B" THE 
900 GOSUB 340 
910 NEXT E 
920 RETURN 
930 REM ##*###*## 

940 REM 

950 M$ = MID$ ( M $ , 4 ] 

960 IF ASC[ M$ ]=75 

970 F$="B" 



EN FLAG=1 
EN FLAG=2 
EN FLAG=3 
EN FLAG=4 
EN FLAG=5 
EN FLAG=6 
EN FLAG=7 
EN FLAG=8 
EN FLAG=9 
EN FLAG=10 

780 , 940 ,1000,1160,1 220 
530,1580 

FORWARD 

THEN M$ = MID$ ( M$ , 6 ) 



M 

>DEPTH THEN 880 

>BREADTH THEN 880 

E • *2 ' AT END OF NEXT 
TER ON YOUR SYSTEM 
N UX=UX+UP : AX=AX+AC*2 
N UX=UX-UP S AX=AX-AC*2 



BACK 
THEN M$ = MID$ [ M$ , 3 ) 
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980 G 
S90 R 
1000 
1 01 
1 020 
1 030 
1 040 
1 050 
1 060 
1070 
30 

1080 


1090 
30 

1100 
1 30 
1110 
THEN 

1 1 20 
THEN 

1 1 30 

1 1 40 

1150 

1160 

1 1 70 

1180 

1 1 90 

1 200 

1 21 

1 220 

1 230 

1 240 

1 250 

1 260 

1 270 

1 280 

1 290 

1300 

1 31 

1 320 
1 330 
1 340 
1 350 



0T0 820 

EM **************************** 

REM TURN 

M$=MID$ ( M$ , 4 ] 

IF ASC[M$J=78 THEN M $ = M I D $ ( M $ , 3 ) 

NUM = VAL[ M$ J 

Y=INT( [ NUM + 1 7 .5 ]/45 ) 

IF Y=0 OR Y=8 THEN RETURN 

FOR J=1 TO Y 

IF UP=-1 AND AC=0 THEN AC=1sG0T0 11 

IF UP=0 AND AC=1 THEN UP=1sG0T0 113 

IF UP=1 AND AC=0 THEN AC=-1sG0T0 11 

IF UP=0 AND AC=-1 THEN UP=-1sG0T0 1 



IF UP=-1 AND AC=-1 OR UP=1 AND AC=1 

AC = s GOTO 1130 
IF UP=-1 AND AC=1 OR UP=1 AND AC = -1 

UP = 
NEXT J 
RETURN 

REM **************************** 
REM HOME 

AX=INT[ (BREADTH+.5J/2J 
UX=INT( (DEPTH+„5)/2) 
UP=-1 s AC=0 sREM FACES UP 
RETURN 

REM **************************** 
REM CLEAN 

GOSUB 1870 
RETURN 

REM **************************** 
REM GO X, Y 

P = 
P = P + 1 

IF MID$[M$,P,1]=«,« THEN 1320 
IF P < L E N ( M $ ] THEN 1280 
RETURN: REM ERROR 
UX=VAL( MID$ ( M$ ,4, P-1 J ] 

AX=VAL(RIGHT$[M$,LEN(M$]-P) ) 
GOSUB 340 

IF UX<1 OR UX>DEPTH THEN 1380 
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1 360 
1370 
1 380 
1 390 
1 400 
1 41 
1 420 
1 430 
1 440 
1 450 
1 460 
1 470 
1 480 
1 490 
1 500 
1 51 
1 520 
1 530 
1 540 
1 550 
1 560 
1 570 
1 580 
1 590 
1 600 
1 61 
1 620 
1 630 
1 640 
1 650 
1660 
1 670 
1680 
1 690 
1700 
1710 
1 720 
1730 
1 740 
1 750 
1760 

1770 
1780 



IF AC<1 OR AOBREADTH THEN 1380 

Z$[UX,AX]=R$ 

RETURN 

q F M ########**#*###*##*###****#* 

REM RAND 0M 

AX=INT[ RND (1 ) *BREADTH] 

UX=INT[ RND [1 ) *DEPTH) 

Z$ [ UX, AX)=R$ 

RETURN 

REM ###*#*##*#*##*#***#********* 

REM REPEAT 

M$=MID$ ( M$ ,4) 

IF ASC(M$)=69 THEN M $ = M I D $ [ M $ , 5 ) 

REC0UNT=VAL[ M$) 

MARKER=PSN 

RETURN 

r F M ##*###**#*#**#**###**#****** 

REM END REPEAT 

REC0UNT=REC0UNT-1 

IF REC0UNT>0 THEN PSN=MARKER 

RETURN 



REM 



FACE 



REM 

M$ = MID$ [ M$ f 4) 
IF ASCt M$ ) =69 
NUM = VAL [ M $ ] 
Y=INT[ [ NUM+1 7 
IF Y=0 OR Y=360 THEN UP 
Y=45 THEN UP=-1 S AC=1 

Y = 90 THEN UP = : AC = 1 

Y = 1 35 THEN UP = 1 :AC = 1 
THEN 
THEN 
THEN 
THEN 



THEN M$ = M I D $ [ M $ s 3 ] 

5 ]/45 } *45 

-1 s AC=0 



IF 
IF 
IF 
IF 
IF 
IF 
IF 



Y = 1 80 

Y = 225 

Y = 270 

Y = 31 5 



$$$$$#$##*#$### 



UP = 1 : AC = 

UP = 1 s AC = -1 

UP = : AC = -1 

UP=-1 5 AC=-1 
RETURN 

REM *#**#***##** 
REM INITIALIZE 
CLS 

RANDOMIZE V A L [ R I G H T $ [ T I M E $ , 2 ) ) 
REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 
BREADTH=80 : REM CHARACTERS ACROSS 
DEPTH=24sREM CHARACTERS DOWN 
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1790 BREADTH=BREADTH-1 

1800 DEPTH=DEPTH-3 

1810 UP=-1 s AC=0 gREM STARTS FACING UP 

1820 DIM A$(20]sREM FOR ROBOT PROGRAM 

1830 DIM Z$(DEPTH, BREADTH] :REM DISPLAY 

1840 T$=»X"sREM PUT SYMBOL HERE YOU 

WANT TO USE FOR ROBOT'S TRAIL 

1850 AX = : UX=0 

1860 REM FILL ARRAY WITH SPACES 

18 70 FOR J=1 TO DEPTH 

1880 FOR K=1 TO BREADTH 

1890 Z $ ( J s K ] = » " 

1 900 NEXT K 

1 91 NEXT J 

1920 R ETURN 
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The Psint-Dutf 
Robot 



While ROBOT LOGO is interesting as far as it goes, once I had used 
it for a while, I felt that it really didn't go far enough. The program was 
developed, like the others in this book, so they would run on just 
about any computer furnished with BASIC, and therefore used an ar- 
ray to keep track of the robot's movement and current position. 

The POINT-DUTY ROBOT program that follows makes use of the 
PSET command included in the BASIC on my IBM PC to draw dots at 
a much finer resolution than the first program — 320 by 200, rather 
than 80 by 24. Using a machine-specific command like PSET, of 
course means that if a listing of the program for your computer is not 
included in this book, you may have a little more trouble than usual 
in getting the program to run. However, the results are superb, and 
the effort involved in getting the program to run is certainly worth it 
If your computer doesn't use PSET to plot a point on the screen, 
check your computer's BASIC manual for a similar command, such 
as SET, POINT, PLOT, that you can use as a replacement 

Here is the POINT-DUTY ROBOT listing, which is based on the 
ROBOT LOGO program in the previous chapter. It has not been re- 
numbered, so you should find it easy to modify the first listing into 
the second one. The RCL commands are the same, except that PRINT- 
OUT is no longer supported. It is not needed, as the program prints 
out automatically as it is running. 

Note that line 1735 in the listing that follows is an IBM-specific 
command that moves the computer into graphics mode. You will 
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need to drop or convert this line if you're running the program on a 
different computer. 



100 REM POINT-DUTY ROBOT 

110 GOSUB 1730sREM INITIALIZE 

1 20 GOTO 490 

130 REM **************************** 

140 REM 

1 50 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA " * » 

330 REM **************************** 

340 REM INT U X , A X 

350 UX = I NT ( UX+ .5 ] : AX = I NT ( AX+ . 5 ] 

360 RETURN 

480 REM **************************** 

490 REM READ PROGRAM 

500 C 0UNT = C OUNT + 1 

51 READ A$ ( COUNT] 

520 IF A$[C0UNT]=»*" THEN 550 

530 IF C0UNT<20 THEN 500 

540 REM **************************** 

550 REM EXECUTE PROGRAM 

560 PSN=0sREM PROGRAM STEP NUMBER 

570 PSN=PSN+1 

580 IF PSN = 21 THEN 580 s REM END 

590 FLAG=0 

600 M$=A$ [ PSN) 

610 IF M $ = » * » THEN 610sREM END 
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20 
30 
50 
60 
70 
80 
00 
1 
20 
30 
40 
50 



$ = LE 



N$ 
N $ 
N$ 
N $ 
N$ 
N $ 
N$ 
N $ 
N$ 
N $ 
FL 



1 400 
60 G 



70 

80 

90 

00 

1 

20 

30 

40 

50 

60 

80 

90 

00 

1 

20 

30 

40 

50 

60 

70 

80 

90 

000 

01 

020 

030 

040 

050 

060 

065 

HEN 



, 1 46 
0T0 
EM * 
EH 

$ = MI 
F AS 
S = "F 
UM = V 
OR E 
F UX 
F AX 
PRES 
F F $ 
F F $ 
OSUB 
EXT 
ETUR 
EM * 
EM 

$ = M I 
F AS 
$ = "B 
OTO 
EM * 
R EM 
M $ = M 
IF A 
NUM = 
Y = IN 
IF Y 
FOR 
IF U 
AC = 1 



F T $ ( M 

= » S T " 

= » F " 

= ■' B A " 

= h T u n 

= » H " 

= M GO" 

= « R A " 

= " R E " 

= » EN " 
= »FA H 

AG GO 

, 1 53 
570 

* * « « $ 

D $ [ M $ 

C ( Ml ) 
it 

AL(M $ 

= 1 TO 

<1 OR 

<1 OR 

ET ( A 

_ II c II 

= " B " 

340 
E 
N 

$ $ $ $ $ 



$,2) 

THEN 560SREM START AGAIN 

THEN FLAG=1 

THEN FLAG=2 

THEN FLAG=3 

THEN FLAG=4 

THEN FLAG=5 

THEN FLAG=6 

THEN FLAG=7 

THEN FLAG=8 

THEN FLAG=9 
SUB 780,940,1000,1160,126 
0,1580 



ORWARD 



$ $ $ $ $ 
F 

*4) 
= 87 THEN MS = MID $ [ M $ , 6 ] 



J 

NUM 

UX>D 
AX >B 
X , UX) 
THEN 
THEN 



$ $ $ $ * 



EPTH THEN 880 
READTH THEN 880 
S PSET [ AX , UX } 
UX = UX + UP i AX=AX+AC 
UX=UX-UP : AX=AX-AC 



BACK 



D $ ( M $ , 4 ] 

C(M»$)=75 THEN M$ = M ID $ [ M $ , 3 ] 



820 



TURN 



ID$(M$ f 4] 

SC(M$]=78 THEN M$=MID $ ( H $ , 3 ] 

VAL[ M$ ) 

T ( ( NUM+1 1 

=0 OR Y=1 6 

J=1 TO Y 

P = -2 AND Ai 

: GOTO 1130 



25 ]/22 . 5 ] 
THEN RETURN 

C=0 OR UP=2 AND A C = 2 
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1 070 
30 
1 075 

THE 
1080 

THE 
1085 
THEN 
1090 


1095 


1100 
30 

1105 
1 30 
1110 
1130 
1115 
1130 
1120 
1130 
1 1 40 
1150 
1160 
1170 
1180 
1190 
1200 
1 21 
1220 
1 230 
1 240 
1250 
1 260 
1 270 
1 280 
1290 
1300 
1 31 
1 320 
1330 
1 340 
1350 
1 360 



IF UP=-2 AND AC=1 THEN AC=2:G0T0 11 

IF UP=-2 AND AC=2 OR UP=0 AND AC=-2 
N UP = -1 5 GOTO 1 1 30 

IF UP=-1 AND AC=2 0R'UP=1 AND AC=-2 
N UP = s GOTO 1130 

IF UP=0 AND AC=2 OR UP=2 AND AC=-2 

UP=1 : GOTO 1130 

IF UP=1 AND AC=2 THEN UP=2sG0T0 113 

IF UP=2 AND AC=1 THEN AC=0iGOTO 113 

IF UP=2 AND AC=0 THEN AC=-1sG0T0 11 

IF UP=2 AND AC=-1 THEN A C = - 2 s G T 1 

IF UP=-1 AND AC=-2 THEN UP=-2sG0T0 

IF UP=-2 AND AC=-2 THEN AC=-1sG0T0 

IF UP=-2 AND AC=-1 THEN AC=0 

NEXT J 

RETURN 

REM HOME 

AX = I NT [ ( BREADTH+ .5 )/2 ) 
UX=INT f ( DEPTH+.5 )/2 ] 
UP=-2 s AC=0 : REM FACES UP 
RETURN 

REM CLEAN 

GOSUB 1 870 

RETURN 

REM **************************** 

REM GO X , Y 

P = 

P = P + 1 

IF HIDI[H$,P,1] S "," THEN 1320 

IF P<LEN ( M$ J THEN 1280 

RETURNsREM ERROR 

UX = VAL[ MID $ [ M $ , 4 , P-1 ] ] 

AX=VAL(RIGHT$[M$,LEN(M$]-P] ] 

GOSUB 340 

IF UX<1 OR UX>DEPTH THEN 1380 

IF AC<1 OR AOBREADTH THEN 1380 
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1370 


PSET [AX 


1380 


RETURN 


1390 


REM 


$ ♦ $ $ 


1 400 


REM 




1 41 


AX = 


INT ( R 


1 420 


ux = 


I NT [ R 


1 430 


PSET [ AX , 


1 440 


RETURN 


1 450 


REM 


$ $ $ $ 


1 460 


REM 




1 470 


M$ = 


MID $ ( 


1 480 


IF 


ASC (M 


1 490 


REC0UNT= 


1 500 


MARK ER = P 


1510 


RETURN 


1520 


REM 


$ $ $ $ 


1530 


REM 




1 540 


R EC0UNT = 


1550 


I F 


REC 0U 


1560 


RETURN 


1 570 


REM 


$ $ $ $ 


1580 


REM 




1590 


M $ = 


M ID $ [ 


1600 


I F 


ASC ( M 


1610 


NUM 


= VAL ( 


1620 


Y = I NT ( [ N 


1 630 


IF 


Y = 


1635 


IF 


Y = 22 . 


1 640 


IF 


Y = 45 


1645 


IF 


Y = 67 . 


1650 


IF 


Y = 90 


1655 


IF 


Y = 1 1 2 


1660 


IF 


Y = 1 35 


1665 


IF 


Y = 1 57 


1670 


IF 


Y = 1 80 


1675 


IF 


Y = 202 


1680 


IF 


Y = 225 


16 85 


IF 


Y = 247 


16 90 


IF 


Y = 270 


16 95 


IF 


Y = 292 


1700 


IF 


Y = 31 5 


1705 


IF 


Y = 337 


1710 


RETURN 


1720 


REM 


| ^C X§I l$t ^ 



,UX) 

RAND OM 
ND ( 1 ] ^BREADTH ] 
ND (1 ) *DEPTH ) 
UX) 

REPEAT 

M $ f 4 ) 

$ ) =69 THEN M$ = M ID S ( M S f 5 ) 

VAL( M S ] 

SN 

END REPEAT 
REC0UNT-1 
NT >0 THEN PSN = M ARK ER 

FACE 
M $ f 4 ) 

$ ) =69 THEN M$=MID$(M$,3] 
M $ ) 

UM+11 a 25 ] /22 . 5 ] *22 . 5 
R Y=360 THEN UP=-2;AC=0 
5 THEN UP=-2 s AC = 1 
THEN UP = -2 : AC = 2 
5 THEN UP=-1 I AC=2 
THEN UP = l AC = 2 
. 5 THEN UP = 1 : AC = 2 

THEN UP = 2 i AC = 2 
. 5 THEN UP = 2 ; AC = 1 

THEN UP = 2 5 AC = 
„ 5 THEN UP = 2 : AC = -1 

THEN UP = 2 s AC=-2 
. 5 THEN UP = 1 i AC = -2 

THEN UP = s AC=-2 
.5 THEN UP=-1sAC=-2 

THEN UP=-2 g AC=-2 
5 THEN UP=-2sAC=-1 



58 



1730 REM INITIALIZE 

1735 SCREEN 1sREM THIS IS AN 

IBM-SPECIFIC GRAPHICS COMMAND 

1740 C LS 

1750 RANDOMIZE V A L [ R I G H T $ ( T I M E $ , 2 ) ] 

1760 REM ADJUST NEXT TWO LINES FOR 
BEST RESULTS ON YOUR SYSTEM 

1770 BREADTH=320 i REM CHARACTERS ACROSS 

1780 DEPTH=200 : REM CHARACTERS DOWN 

1790 BREADTH=BREADTH-1 

1800 DEPTH=D EPTH-3 

1810 UP=-2 s AC=0 s REM STARTS FACING UP 

1820 DIM A$[20];REM FOR ROBOT PROGRAM 

1920 RETURN 



There are many enjoyable programs you can write for your little 
robot to follow. As you can see from the FACE and TURN sections, 
the program supports angle changes of 17.5 degrees, rather than the 
coarser 45 degrees that was all the ROBOT LOGO could cope with. 

When you have POINT-DUTY ROBOT up and running, you might 
like to try the following programs. 

The first one is GLASS MAGNOLIA: 

GO 100,170 
REPEAT 5 
FORWARD 1 3 
TURN 72 
END REPEAT 
START AGAIN 



Adding a single, additional line to that program produces 
CHURCH WINDOW: 



GO 100,170 
REPEAT 4 
FORWARD 13 
TURN 90 
END REPEAT 
TURN 22.5 
START AGAIN 
* 
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HAMPTON COURT ROSE is an effective demonstration of the lit- 
tle robot in action: 

GO 100,170 
REPEAT 2 
FORWARD 3 
T U R N 2 2 . 5 
FORWARD 6 
TURN 22.5 
FORWARD 9 
TURN 22.5 
FORWARD 1 2 
TURN 22.5 
FORWARD 1 2 
TURN 22.5 
FORWARD 7 
TURN 90 
END REPEAT 
START AGAIN 



RCL continues to amaze with SPIRAL NEBULA: 

GO 100,170 
FORWARD 2 
TURN 22.5 
FORWARD 5 
TURN 22.5 
FORWARD 8 
TURN 22.5 
FORWARD 1 1 
TURN 22.5 
FORWARD 15 
TURN 22.5 
FORWARD 7 

START AGAIN 

® 
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CRAZY CRITTER decorates your screen with something sur- 
prising: 



GO 100,170 
REPEAT 2 
FORWARD 10 
TURN 90 
FORWARD 12 
END REPEAT 
TURN 22,5 
START AGAIN 



And this is SIGNALMAN FREUD (who worked for the Vienna Rail- 
road Company): 

GO 100,170 
TURN 135 
FORWARD 25 
REPEAT 4 
FORWARD 10 
TURN 90 
END REPEAT 
START AGAIN 
* 



In our next program, BUBBLES, we use two REPEAT loops. Note 
these are not, and cannot be, nested, as RCL does not support nested 
loops: 

RANDOM 
REPEAT 1 6 
FORWARD 2 
TURN 25 
END REPEAT 
RAND 0M 
REPEAT 1 6 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAIN 
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Removing the second RANDOM line from BUBBLES turns the 
program into one I have called THE EYES ARE WATCHING YOU: 



RAND OM 
REPEAT 16 
FORWARD 2 
TURN 25 
END REPEAT 
REPEAT 16 
FORWARD 1 
TURN 25 
END REPEAT 
START AGAI N 



From that we move to HAND ME DOWN MY DANCING CANE: 



RAND OM 
FORWARD 1 5 
TURN 315 
BACK 5 
TURN 22,5 
START AGAI N 



And, finally, ONE-WAY STREET: 

RANDOM 
FORWARD 1 5 
TURN 315 
BACK 6 
F ORWARD 6 
TURN 270 
F ORWARD 6 
START AGAIN 
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10 



Simulating 
Intelligence 



An enormous amount of energy is now being spent to get computers 
to behave in ways that appear intelligent. Artificial Intelligence (AI) 
research has looked into many of the simple human exhibitions of 
intelligence, such as game playing. It has produced some highly cred- 
itable results— as shown by the current generation of chess ma- 
chines. Expert systems, in which the computer uses the encoded 
expertise of human specialists to reach decisions and give advice, is 
another particularly fruitful area of AI development. Expert systems 
have been developed in a wide range of disciplines. They can now di- 
agnose certain classes of diseases, assist in chemical synthesis, and 
help in the search for mineral deposits. The scope of AI research has 
broadened over the last twenty years and now also covers such topics 
as perception (vision and speech) and the understanding of human 
(natural) languages. 

In this chapter, we'll concentrate on the game-playing side of ar- 
tificial intelligence. The simulation we'll develop plays a very good 
game of CONNECT FOUR, in which two players take turns placing 
pieces in the lowest available position in the columns on a game 
board, trying to be the first to get four of their pieces to form a line in 
any direction. 

It is interesting to note that computer programs that appear to 
display intelligence often work quite differently from the way human 
beings approach the same problems. Typically, computer systems 
analyze the tens of thousands of possible moves, ranking them hier- 
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achically, and choosing the best possible next move. Human players, 
on the other hand, appear to make their decisions almost intuitively. 
Human experts, although they may use some or all of the same raw 
data as an expert system working in the same field, do not examine 
every piece of information that could possibly be relevant before de- 
ciding which of the potential outcomes has the highest probability of 
being correct 

Similarly, in our artificial intelligence simulation program, the 
computer works out its moves in a manner that is quite alien to our 
own thinking. Despite this, it plays extremely well, and will prove a 
difficult, almost impossible, opponent to defeat It assigns a value to 
each possible move, and then evaluates each of these moves in terms 
of whether this will help win the game. It then selects the move with 
the best potential. 

When you're making your own moves, you're far more likely to 
just look at the board, check whether there is any danger of the com- 
puter completing a row of four, and if so, attempt to block it, or select 
a move that "feels" as though it could help lead you to victory. 

The lesson is clear. When writing your own artificial intelligence 
programs, look for the end result you want to achieve, rather than 
trying to emulate your own thinking processes. 

Let's look at our CONNECT FOUR program in action. You enter 
your move as a number between one and eight, and the computer au- 
tomatically places your piece (a small letter "o") at the lowest avail- 
able position in the row designated by the number you have entered. 
The computer pieces are represented by the letter "M": 



12345678 



YOUR MOVE 
? 4 
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Mo 



1 2345678 



Y OUR MOVE 
? 6 



a .HoMo . s 
12345678 



YOUR MOVE 
? 5 



Mo 

MoMo 

1 2345678 



YOUR MOVE 
? 6 
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. a a ™ ■ 

.Moo. 
M o M o . 



12345678 



YOUR MOVE 
? 7 



. MM 
Moo 
M o M o o 
123 4567 8 



YOUR MOVE 
? 7 



. .M . . 

.MM . . 

Hooo, 
M o M o o . 
12345 678 



I HAVE WON 



The victory here is along the diagonal from the top of column six 
down to the bottom of column three. 

Enter this program to start your our experiments in artificial in- 
telligence: 
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1 
20 
30 
40 
50 
60 
70 
80 



REM 
REM A 
CLS 
PRI NT 
PRINT 
PRINT 
PRINT 
PRINT 

T W E E N " 

90 PRINT 

C II 

l_ B a D 



CONNECT FOUR 



PEARSON 



"CONNECT FOUR" 



ENTER YOUR MOVE AS A NUMBER BE 



"1 AND 8, ENTER FOR A NEW GAM 



1 00 

1 1 

1 20 

1 30 

1 40 
1 50 
1 60 
1 70 
1 80 
1 90 
200 
21 
220 
230 
240 
250 
260 
270 
280 
290 
300 
31 
320 
330 
340 
350 
360 
370 
380 
390 
400 
41 



FOR F = 1 TO 1000: NEXT F 
DIM A$(10 f 10j,BM0 f 2] 
F L A G = 

REM CHANGE NEXT LINE FOR YOUR OWN 

CHOICE OF SYMBOLS ( C $ - C M P U T E R } 

C $ = " M " i H $ = " o " i R E M M 

8 



FOR MACHINE I 



FOR F=1 TO 

B[ F,1 )=6 

NEXT F 

FOR F=1 TO 6 

FOR G=1 TO 8 

A $ [ F f G J = " . " 

NEXT G 

NEXT F 

REM ************************* 

REM ACCEPT HUMAN MOVE 

GOSUB 430 

PRINTgPRINT "YOUR M0VE aoa " 

INPUT A 

IF A=0 THEN RUN 

IF A<1 OR A>8 THEN 270 

L = 

IF A$ [ L+1 f A] <>" 

L=L + 1 

GOTO 310 

IF L=0 THEN 270 

A${ L, A]=H$ 

B[ A f 1 )=B[ AJ ]-1 

GOSUB 430 

GOSUB 560 

GOSUB 430 

GOTO 260 

REM *********** 



OR L=6 THEN 340 
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420 

430 

440 

450 

460 

470 

480 

490 

500 

51 

520 

D 

530 

540 

550 

560 

570 

580 

590 

600 

61 

620 

630 

640 

650 

X, F + 

660 



670 



680 

690 

700 

71 

720 

730 

740 

750 

760 

770 

780 

790 

800 

81 



REM PRINT BOARD 

CLS 

FOR F=1 TO 6 

FOR G=1 TO 8 

PRINT A$ t F, G] J 

NEXT G 

PRINT 

NEXT F 

PRINT "12345678" 

PRINT 

IF FLAG=1 THEN PRINT 



"I HAVE WON "SEN 



RETURN 

REM ************************* 

REM COMPUTER MOVES 

PRINT "MY HOVE..." 

MV = 

FOR F=1 TO 8 

B( F,2)=0 

NEXT F 

FOR F=1 TO 8 

FOR X=-1 TO 1 

FOR Y=-1 TO 1 

IF B ( F B 1 )=0 THEN 680 

IF A$(B[F P 1)+X P F+Y)="" OR A$[B[F f 1]+ 

Y ] = » „ " THEN 680 

IF A$ ( B [ F B 1 )+X s F+Y] =H$ THEN GOSUB 81 

IF A$ [ B [ F B 1 )+X, F+Y] =C$ THEN GOSUB 91 



NEX 

NEX 

NEX 

P = 

FOR 

IF 

NEX 

A$( 

B ( N 

N = 

P = 

RET 

REM 

MV = 



T Y 
T X 
T F 

F=1 TO 8 
B[F S 2)>P THEN P=B{F,2):N=F 
T F 

B [ N p 1 ) B N]=C$ 
,1 )=B[N,1 J-1 



URN 
#************************ 
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820 M1 =MV 

830 IF A$(B ( F,1 )+ (X*2 ] , F+[ Y*2 ) )=H$ THEN 

MV=MV+1 

840 IF A$ ( B [ F,1 ] -X, F-Y) = H$ THEN MV=MV+20 

850 IF MVOM1+1D THEN 870 

860 IF A$ ( B [ F,1 )+l X*3 ] p F+ t Y*3 ) ] =H$ THEN 

MV=MV+1 000 

870 B( F B 2 )=B ( F B 2 )+MV 

880 M1 =0 

890 RETURN 

900 REM ***********************#>»< 

910 MV=2 

920 M1=MV 

930 IF A$[ B [ F,1 J+[X*2 ] , F+ [ Y*2 ) )=C$ THEN 

MV=MV+9 

940 IF A$ [B ( F,1 ]-X, F-Y)=C$ THEN MV=MV+20 

950 IF MVOM1+9 THEN 970 

960 IF A$ [ B t F,1 )+ [ X*3 ) , F+ ( Y*3 J ] =C$ THEN 

MV=MV + 2000 s FLAG = 1 

970 B [ F,2 ]=B [ F,2 )+MV 

980 RETURN 
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11 



The Quevedo 

Chess Machine 



The first recorded attempt to produce a machine that would play 
chess was made in Spain in 1890. The scientist Torres y Quevedo pro- 
duced a little device that would play the end game of a king and rook 
against a king, taking the side with the rook. The machine was always 
able to force mate. 

After reading about Quevedo's machine in David Levy's fasci- 
nating book Chess and Computers (Computer Science Press, Inc., 
Potomac, Maryland; 1976), I decided to try and write a program that 
would simulate the machine's behavior. The machine can move in 
one of six possible ways. This program reports which of the six moves 
it has used on each turn. 

You'll find that the computer makes a rapid assessment of the 
situation. Here is an example of the program in action. You play the 
single king (the "$" sign). The computer's king is the "K" and its rook 
is the "R": 
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I USED MOVE 1 



ABCDEFGH 

8 8 

7 „ . . a . . a 7 

6 aaaaaaao 6 

b »Hea"aaa 5 

*t aeaaseaa ^ 

3 $.. 3 

£. aoaaaoao C 

I oaaeaoaD * 

ABCDEFGH 



>> MOVE TO [LETTER, N0„)? A2 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 6 

5 R.. .K B . . 5 

4 4 

*3 aaeaeoBe O 

P $ P 

1 a. 1 

ABCDEFGH 



>> MOVE TO [LETTER, NO.)? B2 
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I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 .... 6 

5 .R. .K . . . 5 

4 4 

3 3 

2 .$...... 2 

1 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.]? 02 



I USED MOVE 1 



ABCDEFGH 

8 8 

7 7 

6 6 

5 . .R .K . . . 5 

4 4 

3 3 

2 . .$ 2 

1 , 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO. )? D2 
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I USED MOVE 1 



ABCDEFGH' 

8 aaaeaaaa 8 

/ aaaaasoa / 

6 BOOCIOBQQ 6 

5 . 0O RK. . . 5 

*r aaaaasoa ** 

*J aoaaaoao d 

G> oas^oaaa C. 

ABCDEFGH 



>> MOVE TO (LETTER, NO.)? E2 



I USED MOVE 2 



ABCDEFGH 

u aaeaaaas O 

7 7 

' aaaaaeaa ' 

U aaevaaae D 

O aeea^aaa w 

** aee**a«eo .*▼ 

O aeaaeaBB w 

C aeaa'aaa *- 

I eeaaaaaa 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.]? F2 
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I USED MOVE 1 

ABCDEFGH 

8 8 

7 7 

6 6 

5 K.. . 5 

A 0ttBB**«a>B ** 

O BBBC0BB6 O 

2 $. . 2 

I BBBBBBBB ' 

ABCDEFGH 
>> MOVE TO (LETTER, NO.)? F1 



I USED MOVE 1 



ABCDEFGH 

8 . 8 

7 7 

6 . ...... • 6 

4 R. . 4 

3 BBBBBBBB 3 

C, BsasaeBS <~ 

1 $.. 1 

ABCDEFGH 



>> MOVE TO (LETTER, NO.)? Q 



THANKS FOR THE GAME 
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Here's the listing so that you can take on Senor guevedo's ma- 
chine for yourself: 



10 REM QUEVEDO CHESS MACHINE 

20 GOSUB 1510:REM INITIALISE 

30 GOTO 60 

40 GOSUB 1320:REM PRINT BOARD 

50 GOSUB 110:REM COMPUTER MOVES 

60 GOSUB 1320 

70 GOSUB 1120:REM ACCEPT HUMAN MOVE 

80 GOTO HO 

90 END 

100 REM *9iiiii#iiiiii 

1 10 REM COMPUTER MOVES 

120 IF QUIT=1 THEN 1080 

130 W1=WK 

140 REM >>«<«*8fi>«iiii 

150 REM MOVE ONE 

160 M0VE=1 

170 KM=INT(BK/10) 

180 RM=INT(R/10) 

190 IF ABS(KM-RM)>3 THEN 330 

200 A(R)=46 

210 X=INT(BK/10) :Y=INT(R/10) 

220 IF X>Y THEN 270 

230 IF A(R-10)<>46 THEN 270 

240 IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 

0)=BK THEN 270 

250 IF A(R-11)=BK OR A(R-9)=BK THEN 270 

260 R=R-10:GOTO 300 

270 IF A(R+10)<>46 THEN A(R)=R:GOTO 330 

280 IF A(R+19)=BK OR A(R+21)=BK OR A(R+2 

0)=BK THEN A(R)=R:GOTO 330 

290 R=R+10 

300 A(R)=ASC("R") 

310 RETURN 

320 REM *i»«»<ts«§is!« 

330 REM MOVE TWO 

340 MOVE=2 

350 KM=BK-10»KM 

360 RM=R-10*RM 

370 IF ABS(KM-RM)<2 THEN 480 

380 A(R)=46 
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430 

= R+1 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 



A(R+1)=46 THEN R 



390 IF R> 1 1 THEN IF (A(R-12)=BK OR A(R-2 
)=BK OR A(R+8)=BK) THEN A( R ) =R : GOTO 480 
400 IF R>11 TiHEN IF (A(R-1)=BK OR A(R-11 
)=BK OR A(R+9)=BK) THEN A(R)=R:GOTO 480 
410 Y=BK-10*INT(BK/10) 
420 Z=R-10*INT(R/10) 

IF (Z=1 OR Y>Z) AND 
GOTO 450 

R=R-1 

A(R)=ASC("R") 

RETURN 

REM MOVE THREE 

M0VE=3 

WM=WK-10*INT(WK/10) 

BM=BK-10^INT(BK/10) 

IF ABS(WM-BM)<3 THEN 600 

IF A(WK-1)<>46 OR A(WK-18)=BK OR A(W 
K-2)=BK OR A(WK+8)=BK 
540 IF A(WK-11)rBK OR 
-22)=BK THEN 610 
550 A(WK)=46 

WK = WK- 1 

A(WK)=ASC("K") 

RETURN 

REM S8ISS2I§§SI§I§ 



THEN 
A(WK- 



610 
■ 9)=BK 



OR A(WK 



560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 



REM MOVES FOUR, FIVE AND SIX 



ZrABS( INT(BK/10)-INT(WK/10>) 

IF Z=0 THEN 950 

IF 2®INT(Z/2)=Z THEN 790 

REM li<IIS59l}ll«%<(ft 

REM MOVE FOUR 

M0VE=4 

A(R)=46 

IF A(R-10)<>46 THEN 720 

IF A(R-9)=BK OR A(R-11)=BK THEN 720 

IF A(R-19)=BK OR A(R-21)=BK OR A(R-2 
0)=BK THEN 720 
710 R=R»10:GOTO 760 

720 IF A(R+10)<>46 THEN A(R)=R:GOTO 790 
730 IF A(R+19)=BK OR A(R+21)=BK OR A(R + 2 
0)=BK THEN A(R)=ASC("R") :GOTO 790 
740 IF A(R+11)=BK OR A(R+9)=BK THEN A(R) 
= ASC("R M ) :GOTO 790 
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750 R=R+10 

760 A(R)=ASC( "R") 

770 RETURN 

780 REM s>«Hii«iH}ii 

790 REM MOVE FIVE 

800 M0VE=5 

810 J=INT(BK/10) 

820 K=BK-10®J 

830 L=INT(WK/10) 

840 M=WK-10 f L 

850 Z=10:IF J<L THEN Z = -10 

860 X=1 :IF K<M THEN X = -1 

870 A(WK)=46 

880 W1=WK 

890 WK = WK-t-Z + X 

900 G=ABS(WK~BK) 

910 IF G=1 OR G=9 OR G=10 OR G= 1 1 THEN W 

K=W1 :A(WK) = 75:G0T0 950 

920 A(WK)=ASC("K") 

930 RETURN 

940 REM **si8ifle#i8§ii 

950 REM MOVE SIX 

960 M0VE=6 

970 A(R)=46 

980 IF R> 1 1 THEN IF A(R-12)=BK OR A(R-2) 

=BK OR A(R+8)=BK OR A(R-1)<>46 THEN 1070 

990 IF R>11 THEN IF (A(R-1)=BK OR A(R-11 

)=BK OR A(R+9)=BK) THEN 1070 

1000 Y=BK-10®INT(BK/10) 

1010 Z=R-10®INT(R/10) 

1020 IF (Z=1 OR Y>Z) AND A(R+1)=46 THEN 

R=R+1:GOTO 1040 

1030 R=R-1 

1040 A(R)=ASC( »R") 

1050 RETURN 

1060 REM »#*»«********* 

1070 GOSUB 1320 

1080 PRINT.-PRINT 

1090 PRINT "I CONCEDE TO THE MASTER" 

1100 END 

1110 REM <9*H88#l«iI»«ll# 

1120 REM ACCEPT HUMAN MOVE 
1 130 REM ENTER «Q» TO QUIT 
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1 140 

1 150 

1 160 

1 170 

1 180 

1 190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

OVE 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 



MOVE=0 

PRINT ">> MOVE TO (LETTER, NO.)"; 

INPUT G$ 

IF G$="Q" THEN 1280 

IF LEN(G$)<>2 THEN 1160 

Z=ASC(G$) 

IF Z<65 OR Z>72 THEN 1160 

X=VAL(RIGHT$(G$, 1 ) ) 

IF X<1 OR X>8 THEN 1160 

A(BK)=46 

BK=10*(Z-64)+X 

IF A(BK).= ASC("R") THEN QUIT=1 

A(BK)=ASC("$") 

RETURN 

PRINT:PRINT 

PRINT "THANKS FOR THE GAME" 

END 

REM VVSIHHtil 

REM PRINT BOARD 

CLS 

PRINT:PRINT 

IF MOVE>0 THEN PRINT "I USED MOVE"M 

IF MOVE=0 THEN PRINT 

PRINTsPRINT 

PRINT TAB( 1 1 ) ;"ABCDEFGH" 

FOR J=8 TO 1 STEP -1 

PRINT TAB(8) ; J; 

FOR K=10 TO 80 STEP 10 

PRINT CHR$(A( J+K) ) ; 

NEXT K 

PRINT J 

NEXT J 

PRINT 

PRINT TAB( 1 1 ) ; "ABCDEFGH" 

PRINT:PRINT 

RETURN 

RgM t#f ifiiiiiitiis 

REM INITIALISATION 

CLS 

RANDOMIZE V AL( R IGHT$ ( TIME$ , 2 ) ) 

MOVE=0 
QUIT=0 
DIM A( 130) 
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1570 FOR J=10 TO 

1580 FOR K=1 TO 8 

1590 A( J+K)=46:RE 

1600 NEXT K 

1610 NEXT J 

1620 REM *» PLACE 

1630 REM BLACK KI 

16U0 BK=INT(RND(1 

1650 BK=10*BK+BK+ 

1660 A(BK)=ASC("$ 

1670 REM WHITE KI 

1680 WK=INT(RND( 1 

1690 WK=10«WK+WK+ 

1700 IF WK=BK THE 

1710 A(WK)=ASC("K 

1720 REM WHITE RO 

1730 R=INT(RND(1) 

1740 R=10*R+R+INT 

1750 IF R=WK OR R 

1760 IF ABS(R-BK) 

1770 A(R)=ASC("R" 

1780 RETURN 



80 STEP 10 

M ASCII OF »." 



PIECES *« 

NG - HUMAN 

)*3)+1 
INT(RND( 1 )«5) 

") 

NG - COMPUTER 

INT(RND( 1 )»2) 

N 1680 

") 

OK - COMPUTER 

(RND( 1 )»2) 
=BK THEN 1730 
<12 THEN 1730 
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12 



Into the 
Political Arena 



As we discussed earlier, computer programs can also be used to sim- 
ulate any process where the links between elements of the process 
can be expressed as one or more mathematical relationships. The po- 
litical simulation in this chapter, WASHINGTON, D.C., shows this 
very clearly. It's governed by mathematical relationships that repre- 
sent a grossly over-simplified version of the American economy. 

You take the role of the hapless occupant of the Oval Office, run- 
ning — as you'll soon see — an economy that is somewhat out of kilter. 
To retain your popular support (and the Presidency) you have to try 
to keep the whole thing together. You need to do your best to improve 
the standard of living, keep inflation and unemployment down, stim- 
ulate private investment, and generally maintain an acceptable 
growth in the economy, all at same time. You'll discover that a Pres- 
ident's lot is not a happy one. 

The simulation begins with a report on the state of the nation: 

PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR .25 YEARS 



STATE OF THE NATI ON 



P OPULATI ON 3000B19 

NO. UNEMPLOYED 300000 9 % 
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CURRENT WAGES $ 100 INFLATION 5 % 

GOVT. EXPENDITURE LAST QTR. $M 118 

UNEMPLOYMENT COST $M 

INCOME FROM TAXES $M 

BUDGET SURPLUS {+] /D EFICIT (-] $M 

GROSS DOMESTIC PRODUCT $M 440 

PUBLIC INVESTMENT Q 1 $M 236 



You start each run with a population of around 3,000,000 and an 
unemployment rate of about 10%. You are then asked to make some 
snap judgments on levels of government spending, cost of wages, and 
on your administration's immigration policy: 

0K f PRESIDENT HARTNELL... 
ENTER GOVERNMENT SPENDING $M? 102 
ENTER COST OF WAGES $M? 41 
IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER (Y/N)? 

OK . . . N 

At the end of my second quarter in office, I found that while I had 
somehow kept inflation and unemployment under control, I was sud- 
denly faced with a budget deficit of over $69 million! On the positive 
side, public investment (and therefore, I hoped, public confidence) 
was on the increase, up from $236 million at the end of the first 
quarter to more than $257 million at this point I decide to increase 
spending slightly: 

PRESIDENT HARTNELL: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR .5 YEARS 



STATE OF THE NATI ON 



P0PULATI ON 3001 63B 

NO. UNEMPLOYED 287879 9 % 

CURRENT WAGES $ 41 INFLATION 9 % 

GOVT. EXPENDITURE LAST QTR, $M 102 

UNEMPLOYMENT COST $M 11.8 

INCOME FROM TAXES $M 44.4 

BUDGET SURPLUS(+]/DEFICIT(-) $M-69 

GROSS DOMESTIC PRODUCT $M 449.2 
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PUBLIC INVESTMENT Q 2 $M 275.7 

OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 107 

ENTER COST OF WAGES $M? 43 

I also decide to let a few of the world's tired and hungry masses 
into the land of milk and budget deficits: 

IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER (Y/N]? 

OK ... Y 
HOW MANY IMMIGRANTS WILL YOU ALLOW 

INTO THE US? 
? 100 

At the end of my first year, the deficit has grown to $216 million, 
and standard of living has increased by 12%: 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1 YEARS 



STATE OF THE NATION 



POPULATION 3004277 

NO, UNEMPLOYED 272309 9 % 

CURRENT WAGES $ 46 INFLATION 9 % 

GOVT. EXPENDITURE LAST QTR. $M 111 

UNEMPLOYMENT COST $H 12.5 

INCOME FROM TAXES $M 50.2 

BUDGET SURPLUS [ + ) /D EFICIT ( -) SM-216.7 

GROSS DOMESTIC PRODUCT $M 486.2 

CHANGE IN LIVING STANDARD 12 % 

PUBLIC INVESTMENT Q 4 $M 364.4 

0K f PRESIDENT HARTNELL... 
ENTER GOVERNMENT SPENDING $M? 120 
ENTER COST OF WAGES $M? 65 
IS YOUR ADMINISTRATION IN FAVOR OF 
IMMIGRATION THIS QUARTER [Y/N)? 

OK ... N 
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I stumble on, narrowly avoiding disasters each time I turn my 
head. Things start getting really hairy toward the end of my second 
year in office: 

PRESIDENT HARTNELL; 

YOUR ADMINISTRATION HAS BEEN IN 
POWER FOR 1 .75 YEARS 



STATE OF THE NATION 



POPULATI ON 3008238 

NO. UNEMPLOYED 377324 12 % 

CURRENT WAGES $ 66 INFLATION 12 % 

GOVT, EXPENDITURE LAST QTR. $M 125 

UNEMPLOYMENT COST $M 24.9 

INCOME FROM TAXES $M 69.4 

BUDGET SURPLUS(+]/DEFICIT[-] $M-436 

GROSS DOMESTIC PRODUCT $M 866 

CHANGE IN LIVING STANDARD 13 % 

PUBLIC INVESTMENT 1 Q 3 $M 243.2 

OK, PRESIDENT HARTNELL... 

ENTER GOVERNMENT SPENDING $M? 126 

ENTER COST OF WAGES $M? 67 



The outcome is inevitable. My time is up: 

PRESIDENT HARTNELL, YOUR 
ADMINISTRATION'S POOR ECONOMIC 
PERFORMANCE HAS LED TO AN UNACCEPTABLE 
RISE IN UNEMP LOYM ENT 

AMONG OTHER THINGS... 

THE LACK OF CONFIDENCE IN YOUR 
ADMINISTRATION IS SO BAD THERE ARE 
CALLS FOR YOU TO RESIGN. ..YOU STEP 
ASIDE TO ALLOW THE VICE-PRESIDENT TO 
OCCUPY THE OVA L OFFICE 

YOU WERE PRESIDENT FOR 2.25 YEARS 
DURING YOUR TERM OF OFFICE, THE 
POPULATION ROSE BY 9059 
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THE UNEMPLOYMENT RATE BECAME 17 % 
AND THE INFLATION RATE BECAME 17.4 % 
STANDARD OF LIVING CHANGED BY 17 % 
AND THE BUDGET SURPLUS/DEFICIT 
WAS SM-597 . 5 

This is a program you may well enjoy modifying. For example, 
changing the income you get from taxes, will alter the simulation in 
a radical way. You can also fiddle with the thresholds at which the 
public starts waving their fists. 

Line 50 governs the increase in population from quarter to 
quarter. A steeper increase here will make it harder to keep the lid on 
unemployment 

I've been pretty generous with my use of REM statements in this 
program, so you should find it relatively easy to track down the var- 
iables you'd like to modify. Here are the major ones, as listed in the 
initialization section of the program: 

1150 REM *****#*##****************** 

1160 REM INITIALIZATION 

1170 CLS 

11B0 RANDOMIZE V A L [ R I G HT $ ( T I M E $ , 2 ) J 

1190 M L = 1 000*1000 

1200 P=3*MLsREM POPULATION 

1210 U=P/10sREM UNEMPLOYMENT 

1220 IV=236sREM INVESTMENT 

1230 GE=118sREM GOVERNMENT EXPENDITURE 

1240 GU=0:REM COST OF UNEMPLOYMENT 

1250 GI=0sREM INCOME FROM TAXES 

1260 WN=100sREM NEW WAGES 

1270 W0=100sREM OLD WAGES 

1280 IP=5sREM INFLATION PERCENT 

1290 GDP=440sREM GROSS DOMESTIC PRODUCT 

1300 AGDP=440sREM BASE YEAR GDP 

1310 RGDP=440sREM REAL GDP 

1320 CN=354sREM ECONOMIC CONSTANT 
{USED THROUGHOUT SIMULATION) 

1330 Z = 1 i GAME = sFLAG = 

1340 Y=0sREM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1360 INPUT A$ 

1370 RETURN 
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The part of the program that does all the calculating is also fairly 
easy to unravel, once you know the principal variables: 



490 REM **••*****•*******•**•*•***• 

500 REM CALCULATIONS 

510 CN=CN+[CN*IP/1 00 ] 

520 U = P®[GE + IV)/(CN*10)+P*( IP/1 000) 

530 GU=U®WN/MLsREM UNEMPLOYMENT COST 

540 GI=( [ ( P-U J *WN* .4]/ML] : REM INCOME 

FROM TAXES 

550 BD=BD+GI-GU-GE| REM BUDGET DEFICIT 

5B0 AGDP = AGDP*[ 1 + [ IP/1 00] J 

570 GDP=GE+I V+[ [ P-U] *WN/ML] 

580 RGDP=GDP*440/AGDP 

590 IP=(IGE+IV)/CN*.1+(WN/WO)/100)*100 

BOO IV=[CN*67 )/( IP*IP) 

610 W0=WN 

620 Z=Z+1gIF 2>4 THEN Z=1sY=Y+1 

630 RETURN 

640 REM a*®****®**®®***®®**®®®**®** 

650 REM CHECK BUDGET DEFICIT 

660 IF BD>-1000 THEN RETURN 

670 GAME=1 

680 FLAG=1 

690 RETURN 

700 REM *®*®***®®®*****®*®**®®*®®®® 

710 REM CHECK STANDARD OF LIVING 

720 IF Y< B 75 THEN RETURN - 

730 IF INT( ( 2* ( [ RGDP/AGDP) ®1 00J-1 00 ]/3] > 

-15 THEN RETURN 

740 GAME=1 

750 FLAG=2 

760 RETURN 

770 REM ®*®*®**®***********®*®®®*®® 

780 REM CHECK INFLATION RATE 

790 IF IP<1 5 THEN RETURN 

800 GAME=1 

810 FLAG=3 

820 RETURN 

830 REM ************ ********®****** 

840 REM CHECK UNEMPLOYMENT 

850 IF INT[ U*1 00/P) <1 5 THEN RETURN 
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860 GAME=1 

870 FLAG=4 

880 RETURN 

890 REM **' 



Here is the complete listing of the WASHINGTON, D.C. program: 



1 
20 
30 
40 
5 

60 
70 
80 
90 
1 00 
1 1 
1 20 
1 30 
1 40 
1 50 
160 
1 70 
1 80 
IN 

1 90 



D„C B 
INITIALIZE 



REM WASHINGTON 
GOSUB 116 Org REM 

REM MAJOR CYCLE 

P=INT(P+[P*273/MLl } 

GOSUB 1 60 l REM PRINTOUT 

GOSUB 510:REM CALCULATE 

REM NOW CHECK END GAME 

GOSUB 710SREM STANDARD OF LIVING 
GOSUB 780sREM INFLATION RATE 
GOSUB 84QgREM UNEMPLOYMENT 
IF GAME=1 THEN CLSsGOTO 890 
GOTO 50 
REM * 

NTOUT 



PR 



REM 
CLS 
PRINT 
PRINT 



PRINT 



200 PRINT 
ii 

21 PRINT 



220 PRINT 

230 PRINT 

1 0*U/P] "% 

240 PRINT 

•• I N T [ I P ) " % 

250 PRINT 

M"GE 

260 PRI NT 

U)/1 

270 PRINT 

]/1 



PRESIDENT " | A $ | " g " 
YOUR ADMINISTRATION HAS BEEN 
POWER FOR" Y + Z/ 4" YEARS" 



STATE OF THE NATION 



POPULATION"? 

N „ UNEMPLOYED "INT(U}" " I N T ( 

CURRENT WAGES $"W0» INFLATION 

GOVT. EXPENDITURE LAST QTR B $ 

UNEMPLOYMENT COST $ M » I N T [ 1 * G 

INCOME FROM TAXES $M»INT(GI*1 
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280 PRINT "BUDGET SURPLUS[+]/DEFICIT(-] 

$M«INT[BD*10)/10 

290 PRINT "GROSS DOMESTIC PRODUCT $ M " I N T 

C GDP*1 0]/10 

300 IF Y+Z/4>„5 THEN PRINT "CHANGE IN LI 

VING STANDARD »INT[ [ 2 * [ (RGDP/AGDP)*100]-1 

] / 3 } " % » 

310 PRINT " 

ii 

320 PRINT "PUBLIC INVESTMENT" Y » Q» Z" $M" IN 

T [ IV*1 ]/1 

330 PRINT » 



340 PRINT 

350 I NPUT 
iGE 

360 INPUT 

370 PRINT 

OR OF" 

380 PRINT 

]?" 

3S0 

400 

41 

420 

430 

440 



"OK, PRESIDENT " f A $ g » a B „ » 
"ENTER GOVERNMENT SPENDING $M» 

"ENTER COST OF WAGES $M»§WN 
"IS YOUR ADMINISTRATION IN FAV 

"IMMIGRATION THIS QUARTER (Y/N 



X$=INKEY$ 

IF X$<>»Y" AND X$<>»N" THEN 390 

PRINT TAB [ 20 ] | "OK . . . » gX$ 

FOR H=1 TO IQOOsNEXT H 

IF X$<>"Y" THEN RETURN 

PRINT "HOW MANY IMMIGRANTS WILL YOU 
ALLOW INTO THE US?" 

450 INPUT M 
460 IF M<0 THEN 450 
470 P=P+M 
480 RETURN 

490 REM ***************®******®**®« 
500 REM CALCULATIONS 
51 CN=CN+ [ CN*IP/1 00 ] 

520 U=P*IGE+IVJ/(CN*10J+P*[IP/1000) 
530 GU=U*WN/MLs REM UNEMPLOYMENT COST 
540 GI= [ ( (P-U) *WN® ,4)/ML] l REM INCOME 

FROM TAXES 
550 BD=BD+GI-GU-GE: REM BUDGET DEFICIT 
560 AGDP = AGDP* [ 1 + [ IP/1 00 ] J 
570 GDP=GE+I V+[ t P-U] *WN/ML) 
580 RGDP=GDP*440/AGDP 
590 IP=UGE + IV)/CN* B 1 + {WN/W0J/100)*100 
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600 
61 
620 
630 
640 
650 
660 
670 
680 
690 
700 
71 
720 
730 
-1 5 
740 
750 
760 
770 
780 
790 
BOO 
81 
820 
830 
840 
850 
860 
870 
880 
890 
900 
91 
920 
C" 

930 P 
CCEPT 
940 I 
ii 

950 I 
ANDAR 
960 I 
FLATI 



V=(C 
= WN 
= Z + 1 
ETUR 
EM * 
EM C 
F BD 
AME = 
LAG = 
ETUR 
EM * 
EM C 
F Y< 
FIN 
HEN 
AME = 
LAG = 
ETUR 
EM * 
EM C 
F IP 
AME = 
LAG = 
ETUR 
EM * 
EM C 
FIN 
AME = 
LAG = 
ETUR 
EM * 
EM E 
RINT 
RINT 



N*67)/[IP*IP] 

8 IF Z>4 THEN Z=1 § Y=Y+1 
N 



HECK BUDG 
>-1000 TH 
1 
1 

N 



ET DEFICIT 
EN RETURN 



HECK STAN 

.75 THEN 

T[ [2*{ (RG 

RETURN 

1 

2 

N 



DARD OF LIVING 

RETURN 

DP/AGDP] *1 00 ) -1 00 )/3 ] > 



HECK INFL 
<1 5 THEN 

1 
3 
N 



ATION RATE 
RETURN 



HECK UNEM 

T[ U*1 00/P 

1 

4 

N 



PLOYMENT 

] <1 5 THEN RETURN 



ND OF THE 
"PRESIDE 
"ADMINIS 



RINT "PERFORM 

ABLE" 

F FLAG=1 THEN 

F FLAG=2 THEN 
D OF LIVING" 
F FLAG=3 THEN 
ON RATE" 



GAME 
NT " ; A $ | " f YOUR" 
TRATIQN"S POOR ECONOMI 

ANCE HAS LED TO AN UNA 

PRINT "BUDGET DEFICIT 

PRINT "DROP IN THE ST 

PRINT "RISE IN THE IN 
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970 IF 

Y M E N T " 

980 PRI 
it 

a 

990 PRI 

ii 

1 000 PR 
UR" 

1010 PR 
RE ARE" 

1 020 PR 
U STEP" 
1030 PR 
IDENT T 
1040 PR 

£ It 

1050 F0 

1060 PR 

ii 

1070 PR 

g c O J Y C 

1080 PR 
THE" 
1090 PR 
1100 PR 
" I N T [ U * 
1110 PR 
E " I N T [ 1 
1120 PR 
Y » I N T { [ 
1130 PR 
IT 

I 1 40 

II 50 
1 1 60 
1 1 70 
1 1 80 
1 1 90 
1 200 
1 21 
1 220 

1 230 
1 240 



EN 
RE 
RE 
CL 
RA 
ML 
P = 
U = 
IV 
6E 
GU 



FLAG=4 THEN PRINT "RISE IN UNEMPL 

NT " AMONG OTHER THINGS „ 

NT » 

INT "THE LACK OF CONFIDENCE IN YO 

INT "ADMINISTRATION IS SO BAD THE 

INT "CALLS FOR YOU TO RESIGN OOB YO 

INT "ASIDE TO ALLOW THE VICE-PRES 

0" 

INT » OCCUPY THE OVAL OFFIC 

R H=1 TO 1000INEXT H 

INT " 

INT "YOU WERE PRESIDENT F R " Y + [ Z * 

ARS" 

INT "DURING YOUR TERM OF OFFICE* 

INT "POPULATION ROSE BY»P-3*ML 

INT "THE UNEMPLOYMENT RATE BECAME 

1000/P]/10"%" 

INT "AND THE INFLATION RATE BECAM 

0*IP]/10"%" 

INT "STANDARD OF LIVING CHANGED B 

2*[(RGDP/AGDP)*100)-100)/3]"%" 

INT "AND THE BUDGET SURPLUS/ DEFIC 

WAS $M"INT[10*BD]/10 
D 

M INITIALIZATION 

S 

NDOMIZE VAL[ RIGHT! (TIME$ , 2 ) ) 

=1 000*1 000 

3*MLsREM POPULATION 

P/IOsREM UNEMPLOYMENT 

=236sREM INVESTMENT 

=118sREM GOVERNMENT EXPENDITURE 

=0:REM COST OF UNEMPLOYMENT 
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1250 Gl=0sREM INCOME FROM TAXES 

1260 WN=100:REM NEW WAGES 

1270 W0=100sREM OLD WAGES 

1280 IP=5sREM INFLATION PERCENT 

1290 GDP=440sREM GROSS DOMESTIC PRODUCT 

1300 AGDP=440;REM BASE YEAR GDP 

1310 RGDP=440sREM REAL GDP 

1320 CN=354sREM ECONOMIC CONSTANT 
[USED THROUGHOUT SIMULATION) 

1330 Z=1 s GAME=0 sFLAG=0 

1340 Y=OsREM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 

1 360 INPUT A$ 

1370 RETURN 
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Playing the 
Stock Market 



The numbers that a computer manipulates can represent anything — 
cloud density, intricate subatomic reactions within a complex chem- 
ical experiment, or the number of warriors taking part in a Roman 
raid on an English village. When computers were first used in busi- 
ness, the numbers generally stood for more mundane things like sta- 
tistics, sales, and dollars. In the simulation in this chapter, we'll stick 
to the extremely important, if mundane, subject of money. 

You play a broker dealing in a small market of five companies. 
You start the simulation with $15,000 and are asked to enter a finan- 
cial target for the run: 

ENTER YOUR GOAL FOR THIS SIMULATION, 

$16,000 TO $100,000 
? 250000 
TOO HIGH! 

ENTER YOUR GOAL FOR THIS SIMULATION, 

$16,000 TO $100,000 
? 16000 
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Once you've done that, the starting state of the market is re- 
vealed: 



DAY 1 YOUR GOAL IS $ 16000 

COMPANY NUMBER: 

12 3 4 5 

CHANCE OF INCREASE [%) : 

23 59 28 59 41 

CHANCE OF DECREASE [%) : 

31 26 55 8 17 

CURRENT VALUE PER SHARE s 
$ 1.49 $ 1*99 $ 2.49 $ 2.99 $ 3.49 
NO. OF SHARES HELD: 

2000 1500 1200 1000 800 

BANK $ 265 TOTAL WORTH $ 15000 

DO YOU WANT TO SELL ANY SHARES (Y/N)? 



One cycle of buying and/or selling represents a day of trading. 
Each day, you are told the chance of each share rising or falling in 
price. Based on that information, you can decide what to buy or sell: 



DAY 1 YOUR GOAL IS $ 16000 

COMPANY NUMBER: 

12 3 4 5 

CHANCE OF INCREASE {%) i 

23 59 28 59 41 

CHANCE OF DECREASE {%) : 

31 26 55 8 17 

CURRENT VALUE PER SHARE: 
$ 1.49 $ 1.99 $ 2„49 $ 2.99 $ 3.49 
NO. OF SHARES HELD: 

2000 1500 1200 1000 800 

BANK $ 265 TOTAL WORTH $ 15000 

WHICH ONES TO SELL? OK 1 

HOW MANY OF 1 TO SELL? 3000 
YOU DON'T HAVE THAT MANY I 
? 1500 
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DAY 1 YOUR GOAL IS $ 16000 

COMPANY NUMBER? 

12 3 4 5 

CHANCE OF INCREASE (%]: 

23 59 28 59 41 

CHANCE OF DECREASE [%) % 

31 26 55 8 17 

CURRENT VALUE PER SHARE : 
% 1.49 $ 1.99 $ 2.49 $ 2.99 $ 3.49 
NO. OF SHARES HELDg 

500 1500 1200 1000 800 

BANK $ 2500 TOTAL WORTH $ 15000 

WHICH COMPANY TO BUY? OK 4 

HOW MANY OF 4 TO BUY? 750 



You can only sell and buy shares once each day, so you must 
choose wisely. After you've made your decisions, the computer will 
tell you how you rate as a stockbroker. Some of the assessments, as 
I'm sure you'll discover, can be quite harsh: 



DAY 2 YOUR GOAL IS $ 16000 

COMPANY NUMBER; 

12 3 4 5 

CHANCE OF INCREASE [%} t 

51 11 43 32 35 

CHANCE OF DECREASE [%] s 

49 43 8 49 46 

CURRENT VALUE PER SHAREs 
S 1.49 $ 2.1 $ 2.36 $ 3.16 $ 3.49 
NO. OF SHARES HELDs 

600 1500 1200 1750 800 

BANK $ 108 TOTAL WORTH $ 15329.06 



YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'BAD » 

<PRESS SPACEBAR TO CONTINUE > 
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However, if you persevere, you may well prosper in the end. Just 
don't allow yourself to be discouraged by assessments such as 
"hopeless": 



DAY 8 YOUR GOAL IS $ 16000 

COMPANY NUMBER: 

12 3 4 5 

CHANCE OF INCREASE (%]: 

18 72 89 24 32 

CHANCE Of DECREASE {%) i 

4 25 1 55 50 

CURRENT VALUE PER SHARE; 
$1.53 $ 2.31 $ 2.57 $ 2.69 $ 3.68 
NO. OF SHARES HELD: 

2100 400 1200 1750 800 

BANK $ 191 TOTAL WORTH $< 15103-32 

WHICH ONES TO SELL? OK 1 

HOW MANY OF 1 TO SELL? 2100 



DAY 11 YOUR GOAL IS I 16000 

COMPANY NUMBER: 

12 3 4 5 

CHANCE OF INCREASE [%) : 

87 30 18 27 30 

CHANCE OF DECREASE [%] : 

4 50 51 44 52 

CURRENT VALUE PER SHARE: 
$1.58 $ 2.44 $ 2.69 $ 2.65 $ 3.68 
NO. OF SHARES HELD: 

600 2400 1750 800 

BANK $ 355 TOTAL WORTH $ 15352.79 



YOUR RATING AFTER THAT ROUND OF 
TRADING IS 'HOPELESS' 

<PRESS SPACEBAR TO CONTINUE > 
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DAY 17 YOUR GOAL IS $ 16000 

COMPANY NUMBERS 

12 3 4 5 

CHANCE OF INCREASE [%) <. 

47 65 38 8 47 

CHANCE OF DECREASE [%) s 

32 7 44 25 40 

CURRENT VALUE PER SHARE: 
$ 1.78 $ 2.5 $ 2.61 $ 2.98 $ 3.83 
NO. OF SHARES HELD; 

2900 1750 800 

BANK $ 229 TOTAL WORTH $ 16109.47 



ter. 



YOU'VE HIT YOUR FINANCIAL GOAL I 
The STOCK MARKET listing is presented in the following chap- 
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Ti 
ne 

STOCK MARKET 

Lm m m 

!<a3$ si I%h 



When you're ready to challenge the best brains of Wall Street, enter 
and run the following listing. Just don't be too ambitious with your 
financial goals, or you'll never attain financial security. 



1 o 

20 
30 
40 
50 
99 
60 
00 
70 
80 



REM 
CLS 



STOCK MARKET 



RANDOMIZE V A L ( R I G H T $ [ T I M E $ f 2 } ) 

DIM Sl5),N(5),P[5) f D[5l 

S ( 1 )=1 B 49s S[ 2 ) =1 H 99sS(3]=2 49sS[4)=2 B 

S [ 5) =3 a 49 

N{1)=2000sN[2)=1500sN(3)=12Q0.N(4)=10 

N( 5l =800 

BB=265gTV=1 5000 gQQ=1 5000 :DAY=1 

PRINTsPRINT "ENTER YOUR GOAL FOR THIS 
SIMULATION, » 
90 PRINT TAB[Blp ,l $16 s 000 TO $100,000" 
100 INPUT GOAL 

110 IF G0AL<16000 THEN PRINT "TOO L0WI"s 
GOTO 80 

120 IF G0AL>100*1000 THEN PRINT "TOO HIG 
H ! " g GOTO 8 
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130 REM ************************ 

140 REM MAJOR LOOP 

150 FOR C=1 TO 5 

160 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY GAMEg 80 VERY HARD P 30 VERY EASY 

170 D (C)=INT( RND ( 1 ] *55) +1 

180 P[C]=INT(RND[1 ]*(100-D(C))J+1 

1 90 NEXT C 

200 GOSUB 230 

21 GOTO 460 

220 REM ************************ 

230 REM PRINTOUT 

240 CLS 

250 PRINT " 

i? 

260 PRINT " DAY "DAY" YOUR GOAL IS 

$»GQAL 

270 PRINT " 



280 P 
290 P 
B[25) 
300 P 
310 P 
) P P I 3 
320 P 
330 P 
) ;D(3 
340 P 
350 P 
$ " ; I N 
360 P 
TAB[ 2 
370 P 
380 P 
390 P 
] ;N(3 
400 P 
"TV 
41 P 



RINT " 
RINT T 
; 4gTAB 
RINT " 
RINT T 
) iTABf 
RINT " 
RI NT T 
] iTAB[ 
RINT " 
RINT " 
T(S(2) 
RINT T 
3)1"$" 
RI NT T 
RINT " 
RINT T 
) ?TAB[ 
RINT » 

RINT » 



COMP 
AB {2 
[32] 
CHAN 
AB ( 2 
25] ; 
CHAN 
AB( 2 
25] I 
CURR 
$»fl 
*1 00 
AB [1 
1 I NT 
AB ( 3 
NO. 
AB[2 
24) ; 
BANK 



ANY 

)H I 
85 

CE 
) JP[ 
P(4] 
CE 
} |D( 
D(4] 
ENT 
NT [ S 
)/10 
5) ; " 
[S[4 
0)1" 
OF S 
) |N( 
N[4) 
$»I 



NUMBERg" 

TAB ( 9 ) 1 2 f TAB (16) 



3 ?TA 



F INCREASE (%)?" 

1 ) |TAB (9) | P( 2) |TAB (1 6 

lTAB[32] ;P[5) 

F DECREASE [%) g » 

1 ) |TAB( 9) | D ( 2 ) ;TAB[1 6 

STAB[32);D[5) 

VALUE PER SHAREi" 

[1 )*100)/100;TAB(B) ?" 

01 

$»|INT[S[3)*100]/100i 

) *1 )/1 ; 

$"lINT(S(5)*100]/100 

HARES HELDg" 

1 ) gTAB ( 9) ; N ( 2) |TAB [1 6 

gTAB ( 31 ) | N [ 5 ] 

NT [ BB) " TOTAL WORTH $ 



420 I 
UR FI 
430 R 



F TV>G 
NANCIA 
ETURN 



OAL THEN PRINT "YOU'VE HIT YO 
L GOALI"gEND 
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440 R 

450 R 

460 P 

S {Y/ 

470 A 

480 

490 

500 

51 

520 

530 

540 

550 

560 

570 

580 

THAT 
590 R 
600 
61 
620 
630 
640 
650 
660 
670 
680 
690 
700 
71 
720 

[Y/N 
730 A 
740 
750 
760 
770 
780 
790 
800 
81 
820 
830 
840 



EM 

EH 

RI 

N] 

$ = 

F 

F 

OS 

RI 

$ = 

F 

= V 

RI 

RI 

NP 

F 

M 
EM 
EM 
B = 
(C 

V = 
EM 
OR 

V = 
EX 

V = 
OS 
EM 
EM 
RI 

)? 

$ = 

F 

F 

OS 

RI 

$ = 

F 

= V 

RI 

RI 

NP 

F 



** SELL ** 

NT "DO YOU WANT TO SELL ANY SHARE 
?" 

INKEY$ 

A $ <> " Y » AND A $ <> " N n THEN 470 

A$="N" THEN 690 

UB 230 

NT "WHICH ONES TO SELL?"? 

I NKEYI 

AS<»1" OR A$>"5" THEN 520 

AL[ A$ ] 

NT" K " C 

NT "HOW MANY OF"C"TO SELL"! 

UT N 

N>N(C) THEN PRINT "YOU DON'T HAVE 

ANYM'iGOTO 570 

ADJUST FIGURES AFTER SALE 
BB + S ( C] *N: REM ADD VALUE TO BANK 
)sN[C)-N:REH SUBTRACT N0 o SOLD 
OsREH SET TOTAL WORTH TO ZERO 

NOW DETERMINE CURRENT WORTH 

C=1 TO 5 
TV+N(C) *S[ C] 
T C 

TV+BBgREM ADD IN BANK BALANCE 
UB 230 

** bu y ** 

NT "DO YOU WANT TO BUY ANY SHARES 
it 

INKEY$ 

A$<>"Y" AND A $ <> " N " THEN 730 

A$="N" THEN 890 

UB 230 

NT "WHICH COMPANY TO BUY?"? 

INKEY$ 

A$<"1" OR A$>"5" THEN 780 

AL{ A$) 

NT " OK"C 

NT "HOW MANY OF"C»TO B U Y " § 

UT N 

N * S { C ] > B B THEN PRINT "YOU DON'T H 
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AVE 
850 
860 
870 
88 
890 
900 
91 
920 
930 
940 
950 
960 
970 
980 
990 
1 000 

000 ) 
1010 

1 020 

000 ) 

1 030 
1 040 
1 050 
1060 
1 070 
1 080 
1 090 
1100 
1110 
1120 
1 1 30 
1 1 40 
1150 
1160 
1170 
1180 
1190 

OF" 
1 200 
1 21 
CONT 
1 220 



ENOUGH MQNEY!"sGOTO 830 

REM ************************ 

REM ADJUST FIGURES AFTER BUY 

BB=BB-S [ C) *N 

N [ C) =N ( C] +N 

TV = 

F OR C = 1 TO 5 

TV=TV+N ( C ) *S ( C) 

NEXT C 

TV=TV+BB 

GOSUB 230 

RE ^ ************************ 

REM MODIFY ALL INDICATORS 

TV = 

FOR C=1 TO 5 

K=INT( RND (1 ) *1 00J+1 

IF K<P[C] THEN SIC)=S[C)*(1+[P[C)/1 
) 

K=INT(RND 11 J *1 00 1+1 

IF K<D [ C) THEN S(C) 



S[G]/(1+(D[C]/1 



TV = TV+[ S I C] *N[ C J J 

NEXT C 

TV=TV+BB 

QQ=QQ*1 . 005 

W=(TV*1 OO/QQJ -100 

IF W=0 THEN W=.1 

W = W + 6 

IF W<1 THEN W=1 

IF W>15 THEN W = 15 

RESTORE 

FOR T=1 TO W 

READ A$ 

NEXT T 

PRINT 

REM ************************ 

REM GIVE RATING, START NEW ROUND 
PRINT "YOUR RATING AFTER THAT ROUND 



PRINT "TRADING 
PRINTgPRINT " 
I N U E > " 
IF INKEY$<>» » THEN 
SPACE BETWEEN 



IS ' " ; A $ ; " « " 
<PRESS SPACEBAR 



TO 



1 220 : REM NOTE 
QUOTE MARKS 
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1230 DAY=DAY+1 

1 240 GOTO 1 50 

1250 DATA "HOPELESS" f »VERY, VERY POOR" 

1260 DATA "TERRIBLE" t "AWFUL" , "BAD" 

1270 DATA "VERY ORDINARY", "AVERAGE" 

1280 DATA "REASONABLE", "A LITTLE ABOVE A 

VERAGE" 

1290 DATA "FAIRLY G OD » , " G OD " f " V E R Y GOO 

D" 

1300 DATA "GREAT" f "EXCELLENT" , "SUPERLATI 

VE" 

If you want to modify the degree of difficulty of this simulation, 
change the 55 in line 170. The lower the number (down to 30), the 
easier it is to make a profit The higher the number (up to 80), the 
more difficult it becomes. The simulation will not run even remotely 
realistically if you use values less than 30, or greater than 80, in line 
170. 
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15 



Running an 
Automobile 

Company 



The complex processes of manufacturing and sales are presented, al- 
beit in a very simplified form, in this simulation. It took sixty years 
for the automobile market to become saturated in the United States. 
You have been unfortunate enough to be appointed as president of a 
major car manufacturing concern the very same month that the car 
market really hits bottom. To save the day — and your reputation as a 
hard-hitting, straight-from-the-shoulder, trouble-shootin', crisis- 
solvin' executive— you must get the tottering firm back on its feet 

You take over just as the accountants announce that the com- 
pany is losing $60 million a year. Your task, needless to say, is to try 
and make the company profitable. 

Here's how it begins: 

INDUSTRY SALES 50000 IN MONTH 

YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE % 22995 
OR $M 22 B 9 PER MONTH 



As you can see, the total sales within the automobile industry 
for the month before the simulation began (month 0) were 50,000 
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units. You start the simulation with your company holding about a 

quarter of the total industry sales, or around 12,500 vehicles. You 
have four factories, which are currently producing more vehicles 
than you can sell: 



MAXIMUM MONTHLY OUTPUTS 
FACTORY 1s 8 900 
FACTORY 2 s 3250 
FACTORY 3s 2500 
FACTORY 4s 16 25 

TOTAL OUTPUT IS 16275 

EFFICI ENCY LEVEL I S 77 % 

DO YOU WANT TO EXPAND OUTPUT (Y/N)? 

N 
DO YOU WANT TO SELL FACTORY 4 [Y/N)? 

N 



When the simulation begins, the average annual wage for each 
employee is around $23,000. This will rise each three months, due to 
union demands for adjustments to keep up with inflation. Although 
you cannot reduce wages, or refuse to include the raise due to infla- 
tion, you can decide how many people to hire or fire, and at what price 
you will sell each vehicle. When the simulation begins, each car sells 
for around $12,000: 

INDUSTRY SALES 50000 IN MONTH 

YOU HAVE 12000 EMPLOYEES 
AVERAGE WAGES ARE * 22995 
OR $M 22 . 9 PER M 0NTH 

HOW MANY EMPLOYEES TO HIRE? 
HOW MANY EMPLOYEES TO FIRE? 567 

YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 21 „ 9 PER MONTH 



WHAT IS YOUR SELLING PRICE? 12345 
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Once you've answered all the relevant questions, the simulation 
reports back to you on how well — or otherwise — you have performed: 

INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALESs 13386 [ 27.4 % OF TOTAL ] 

YOU HAVE 11433 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 21 ,9 PER MONTH 

AVERAGE COST PER VEHICLE IS $ 10192 

AND AVERAGE SELLING PRICE IS $ 12345 

SO THE AVERAGE PROFIT IS $ 2152 
OR $M 28.8 PER MONTH 

PROFIT FOR THE MONTH IS $M 6.9 

5 TOTAL PROFIT TO DATE IS $M 6.9 

DO YOU WANT TO RESIGN (Y/N)? 

N 

That wasn't too bad. You actually made a profit 
The process continues: 

INDUSTRY SALES 48833 IN MONTH 1 

YOUR SALES? 13386 ( 27.4 % OF TOTAL ] 

YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 19.6 PER MONTH 

AVERAGE COST PER VEHICLE IS $ 10 19 2- 
AND AVERAGE SELLING PRICE IS $ 12345 

SO THE AVERAGE PROFIT IS $ 2152 
OR SM 28.8 PER M ONTH 

PROFIT FOR THE MONTH IS $M 6.9 

6 TOTAL PROFIT TO DATE IS SM 6.9 

WHAT IS YOUR SELLING PRICE? 24000 
TOO BIG A CHANGE FOR THE MARKET 
WHAT IS YOUR SELLING PRICE? 14000 
INDUSTRY SALES 51485 IN MONTH 2 
YOUR SALES? 6435 [ 12.5 % OF TOTAL ) 
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YOU HAVE 10233 EMPLOYEES 
AVERAGE WAGES ARE $ 22995 
OR $M 19.6 PER MONTH 

AVERAGE COST PER VEHICLE IS $ 11630 

AND AVERAGE SELLING PRICE IS $ 14000 

SO THE AVERAGE PROFIT IS $ 2369 
OR $M 15.2 PER MONTH 

PROFIT FOR THE MONTH IS IM-4.4 
& TOTAL PROFIT TO DATE IS $M 2.5 

DO YOU WANT TO RESIGN (Y/N)? 

N 

Just when you think you're getting it all under control, inflation 
exacts its toll: 

INFLATION RATE THIS QUARTER IS 2.5 % 
AVERAGE WAGES BILL WILL NOW RISE TO 
$ 23569 PER EMPLOYEE 

ANY KEY TO CONTINUE 



Your next month is not very good: 

INDUSTRY SALES 49184 IN MONTH 3 
YOUR SALES? 6837 [ 13.9 % OF TOTAL 

YOU HAVE 9743 EMPLOYEES 
AVERAGE WAGES ARE $ 23569.88 
OR $M 19.1 PER M ONTH 

AVERAGE COST PER VEHICLE IS $ 11835 

AND AVERAGE SELLING PRICE IS $ 14500 

SO THE AVERAGE PROFIT IS $ 2664 
OR SM 18.2 PER MONTH 

PROFIT FOR THE MONTH IS $M-1 

& TOTAL PROFIT TO DATE IS $M 1.5 

DO YOU WANT TO RESIGN (Y/N)? 
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You start the simulation, as you've seen, with four factories. You 
have the option of at any time selling off factory number four. Alter- 
natively, you can increase the output of the factories. You'll find that 
the minimum cost per vehicle (and therefore the maximum profit per 
sale) occurs when your factories are running at 85% efficiency. 

Let's decide to sell off factory four, to let the income from that 
sale offset our losses: 

YOUR MONTHLY SALES ARE 5517 

MAXIMUM MONTHLY OUTPUT; 
FACTORY is 8900 
FACTORY 2s 3250 
FACTORY 3s 2500 
FACTORY 4s 1625 

TOTAL OUTPUT IS 16275 

EFFICI ENCY LEVEL IS 33 % 

DO YOU WANT TO EXPAND OUTPUT (Y/N)? 

N 
DO YOU WANT TO SELL FACTORY 4 (Y/N)? 

Y 
FACTORY 4 IS VALUED FOR SALE AT $M104 
YOU CAN'T REBUY IT LATER IF 
YOU SELL IT. ,, 
DO YOU WANT TO SELL (Y/N)? 

Y 

I've tried this simulation several times. Each time, the same fate 
occurs. Perhaps I'm just not cut out to run a multi-million-dollar 
business: 

INDUSTRY SALES 48991 IN MONTH 10 

YOUR SALESs 5727 ( 11.6 % OF TOTAL ] 

YOU HAVE 9703 EMPLOYEES 
AVERAGE WAGES ARE $ 24521.51 
OR $M 19.8 PER MONTH 

AVERAGE COST PER VEHICLE IS $ 12418 
AND AVERAGE SELLING PRICE IS $ 15400 
SO THE AVERAGE PROFIT IS $ 2981 
OR $M 17 PEP M 0NTH 
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PROFIT FOR THE MONTH IS SM-2.8 

& TOTAL PROFIT TO DATE IS $M 68.4 

DO YOU WANT TO RESIGN (Y/N)? 



YOU JUST MADE YOUR TWELFTH MONTHLY 

LOSS IN A ROW.. 

YOUR EMPLOYMENT 

IS HEREBY TERMI NAT ED ! I 



A much better outcome is, however, possible for those who are 
more skilled than I am: 



WELL DONEI THE COMPANY HAS MADE MORE 
THAN SM200. YOU'VE BEEN MADE 
A M EMBER OF TH E BOARD 



Here are the principal variables, as they are assigned at the start 
of this simulation: 

1630 REM $*t E *«**««*$«$i!i$*«*$sf::i:sii«$« 

1640 REM INITIALIZATION 

1650 CLS 

1660 RANDOMIZE V A L ( R I 6 H T $ ( T I M E $ , 2 ) ) 

1 670 DIM M [5J ,Y[ 5 I 

1680 NE=12000sREM STARTING NO EMPLOYEES 

1690 AW=22995sREM STARTING AVERAGE WAGE 

1700 AC=11100lREM COST P R I C E/ V E H I C L E 

1710 AS=1 2000 s REM SELLING PRICE 

1720 MI=50*1 000 gMC=1 01 00 

1730 Y ( 3 ) =1 2500 

1740 MS=25sEF=77sFA=160sSF=0sMT=0 

1750 FOR J=1 TO 5 

1 760 READ M[ J] 

1770 NEXT J 

1780 RETURN 

1790 DATA 8900 ,3250 , 2500 „ 1 625 ,1 6275 
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As you can see, the REM statements allow you to trace the var- 
ious formulas that are used in this simulation: 

220 INPUT "HOW MANY EMPLOYEES TO HIRE'-pH 

230 NE=NE+HEsIF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO FIRE»|H 

E 

250 NE=NE-HE 

260 60SUB 650 

270 P1=ASiREM SET P1 EQUAL TO OLD PRICE 

280 INPUT "WHAT IS YOUR SELLING PRICE"?A 

S 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE IN SELLING PRICE 
300 IF ABS{P1-AS] >2500 THEN PRINT "TOO B 
IG A CHANGE FOR THE MARfCET"sG0T0 280 
310 CLS 

320 PRINTgPRINTiPRINT 
330 MI = INT( RND (1 J *4000 1+48*1 000 l REM THIS 

MONTH'S SALES BY INDUSTRY 
340 C=C+1|REM COUNTS NUMBER OF MONTHS 
350 IF C<3 THEN 470 

360 M=INT(RND [1 J*10+1 )/4sREM INFLATION 
370 CLS 

380 PRINT "INFLATION RATE THIS QUARTER I 
S " M » % » 

390 PRINT "AVERAGE WAGES BILL WILL NOW R 
I S E TO" 

400 AW=(AW*M/1 00)+AW 

410 PRINT TAB(8J ? "$»INT( AW) » PER EMPLOY 

EE" 

420 IF INKEYIO"" THEN 420 

430 PRINT:PRINT TAB(12)p»ANY KEY TO CONT 

I N U E » 

440 IF INKEY$="" THEN 440 

450 FA=t FA*M/1 00 J+FA 

460 C=0 

470 Y[1)=NE*15/12sREM SALES BASED ON 

NUMBER OF EMPLOYEES 
480 Y[2)=(100-AS/FA] *MI/100sREM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINES SET LOWEST FIGURE 
FROM Y(1 ) ,Y[2J ,M[5J EQUAL TO Y[3) 
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500 IF Y[1]<Y(2) AND Y(1]<M[5] THEN Y[3) 

= Y ( 1 J s GOTO 540 

510 IF Y { 2 } <Y ( 1 ) AND Y[2]<M(5j THEN Y[3) 

=Y(2) ; GOTO 540 

520 Y( 3] =M ( 5 ) 

530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS(P1-AS} <501 THEN Y ( 3 ] = 3 . 6 * Y [ 3 } 
/3 

550 IF Y(3]>M[5J THEN Y ( 3 ] = Y ( 3 ) - 1 9 7 5 ! G OT 
550 

560 MC=(MC*M/1 00 ) +MC 
570 EF=Y(3]/M[5 J *100s REM EFFICIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC=[MC*[ABS(85-EF)/3)/100)+MCsREM 

AVERAGE COST PER VEHICLE 
590 MP=((Y[3)*[AS-AC))-[NE*AW/12))sREM 

MONTHLY PROFIT 
600 MP=INT [ MP/ ( 1 00*1 000 ) J 
610 TP=TP+MP/1 b REM TOTAL PROFIT 

IN MI LLI ONS 

620 M=0 

The complete listing for DETROIT CITY is in the next chapter. 
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Here's the complete listing of the DETROIT CITY program: 



[ Y / N J ? » 



10 REM D ETROIT CITY 
20 GOSUB 1640iREM INITIALIZE 
30 GOTO 110 

40 MT=MT+1|REM COUNTS MONTHS 
50 GOSUB 650 
60 IF T P > 2 THEN 1560 
70 PRINT "DO YOU WANT TO RESIGN 
80 GOSUB 1010 

90 IF A $ = » Y » THEN PRINT "OK, CHIEF "gEND 
1 00 GOSUB 1 380 
1 1 GOSUB 650 

120 FOR T=1 TO 1000:NEXT T 
1 30 GOSUB 850 

140 PRINT "DO YOU WANT TO 
{ Y/N) ?» 

150 GOSUB 1010 
160 IF A$=»Y» THEN 1080 
170 IF SF=1 THEN 210 
180 PRINT "DO YOU WANT TO 
( Y/N J ?« 



EXPAND OUTPUT 



SELL FACTORY 4 
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190 

200 

21 

220 

E 

230 

240 

E 

250 

260 

270 

280 

S 

290 

300 
I G A 
31 
320 
330 

340 

350 

360 

370 

380 

S " M " 

390 

ISE 

400 

41 

EE" 

420 

430 

INUE 

440 

450 

460 

470 

480 

BA 
490 



60SUB 1 01 
IF A$="Y" THE 
GOSUB 650 
INPUT "HOW MA 

NE=NE+HEsIF H 
INPUT "HOW MA 

NE=NE-HE 
GOSUB 650 
P1=ASiREM SET 
INPUT "WHAT I 



REM NEX 

C 

IF ABS[ 

CHANGE 

GLS 

PRINTgP 
MI=INT [ 
MONT 
C=C+1 i R 
IF C<3 
M=INT[ R 
CLS 

PRINT » 
%" 

PRINT « 
TO" 

AW= ( AW* 
PRINT T 



T LINE 
HANGE 
P1 -AS) 
FORT 

RINTsP 
RND [1 ] 
H « S SA 
EM COU 
THEN 4 
ND (1 ) * 



N 1 250 

NY EMPLOYEES TO HIRE"iH 

E>0 THEN 260 

NY EMPLOYEES TO FIRE"|H 



P1 EQUAL TO OLD PRICE 
S YOUR SELLING PRICE" ? A 

REJECTS TOO BIG A 
IN SELLING PRICE 
>2500 THEN PRINT "TOO B 
HE MARKET"sGOTO 280 

RINT 

*4000 ) +48*1 000 I REM THIS 

LES BY INDUSTRY 

NTS NUMBER OF MONTHS 

70 

1 0+1 ) / 4 g REM INFLATION 



INFLATION RATE THIS QUARTER I 

AVERAGE WAGES BILL WILL NOW R 

M/1 00) +AW 

AB[8) ? "$»INT( AW) " PER EMPLOY 



IF INKEY$<>"" 
PRINTiPRINT T 

IF INKEY$="" 
FA=( FA*M/1 00 ) 
C = 

Y ( 1 )=NE*1 5/1 2 
NUM 
Y [ 2) = ( 1 OO-AS/ 
SED ON MONTHL 
REM NEXT LINE 
FROM Y[1 ) P Y(2 



THEN 420 
AB [ 1 2 ) 1 "ANY KEY TO CONT 

THEN 440 
+ FA 

gREM SALES BASED ON 

BER OF EMPLOYEES 

FA) *MI/1 00 gREM SALES 

Y INDUSTRY SALES 

S SET LOWEST FIGURE 

) g M [ 5) EQUAL TO Y [ 3) 



110 



500 
= Y (1 
51 
= Y(2 
520 
530 

540 
/3 
550 
55 
560 
570 
AS 
580 



IF Y[1]<Y(2] AND Y(1)<M(5j THEN Y[3) 

) : GOTO 540 

IF Y(2)<Y[1J AND Y(2]<M(5) THEN Y(3J 

] g GOTO 540 

Y(3)=M[5] 

REM NEXT LINES DETERMINE 

MONTHLY SALES 
IF ABS( P1 -AS) <501 THEN Y ( 3 ] = 3 . 6 * Y ( 3 ) 



600 
61 

620 
630 
640 
650 
660 
670 



IF Y [ 3 I >M C 5 ] THEN Y [ 3 } = Y [ 3 ] -1 9 7 5 b G OT 


MC = 
EF=' 
SAL 
AC; 



% 



590 MP= 



MP = 
TP = 

M = 
GOT 
REM 
REM 
CLS 
PRI 



(MC*M/1 00 ] +MC 

Y ( 3 ]/M ( 5 J *1 00 : REM EFFICIENCY 

ES DIVIDED BY TOTAL OUTPUT 

[ MC*(ABS(B5-EF J/3J/1 00 ]+MCs REM 

AVERAGE COST PER VEHICLE 
((Y(3)*(AS-AC1)-(NE*AW/12)) sREM 

MONTHLY PROFIT 
I NT [ MP/ (100*1 000 ) ] 
TP+MP/10sREM TOTAL PROFIT 
IN MILLIONS 

40 

REPORT PRINTOUT 

NT "INDUSTRY SALES "MI "IN MONTH "MT 



680 IF 

Y [ 3 J ) " 

J" 

690 PRINT 



MT>0 THEN PRINT "YOUR SALESs"INT{ 
( "INT ( Y ( 3 J *1 OOO/MI J/1 0"% OF TOTAL 



700 PRINT 
71 PRINT 
720 PRINT 
2 J / 1 " P E R 

730 PRINT " 

_ __ n 

740 IF MT=0 THEN RETURN 

750 PRINT "AVERAGE COST 

$" I NT (AC J 

760 PRINT "AND AVERAGE SELLING 

$ " I N T ( A S J 



"YOU HAVE"NE"EMPLOYEES" 

"AVERAGE WAGES ARE $"AW 

" OR $M»INT(AW*NE/ (100*1000]/1 

MONTH" 



PER VEHICLE IS 



PRICE IS 
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770 PRINT "SO THE AVERAGE PROFIT IS $»IN 
T[ AS-AC] 

780 PRINT "OR $M»INT[(AS-AC)*Y(3)/(100*1 

000) J/10" PER MONTH" 

790 PRINT " 

ii 

800 PRINT "PROFIT FOR THE MONTH IS $M"MP 

/10 

810 PRINT " & TOTAL PROFIT TO DATE IS $M» 

INT (TP*10 )/1 

820 PRINT " 



830 RETURN 

840 REM ************************* 

850 REM MONTH REPORT 

860 CLS 

870 IF MT>0 THEN PRINT "YOUR MONTHLY SAL 

ES ARE"INT[Y(3)] 

880 PRINT " 

_ — — " 

890 PRINT "MAXIMUM MONTHLY OUTPUT?" 

900 PRINT TAB[3) ; "FACTORY 1 : " I NT [ M [ 1 ) J 

910 PRINT TAB[3)?" FACTORY 2§»INT[M(2)) 

920 PRINT TAB[3) 1 "FACTORY 3 : » I NT [ M ( 3 ) ) 

930 IF SF=1 THEN 960 

940 PRINT TAB (3) | "FACTORY 4s"INT(M[4)} 

95 PRINT " ■ 

_ _ _ •' 

960 PRINT "TOTAL OUTPUT IS"INT(M(5)) 

970 PRINT " 

ii 

980 PRINT "EFFICIENCY LEVEL IS" INT(EF)"X 
ii 

990 RETURN 

1000 REM ************************* 

1010 REM GET REPLIES 

1 020 A$=INKEY$ 

1030 IF A$<>"Y" AND A $ <> " N " THEN 1020 

1040 PRINT T A B I 2 2 J 5 A- $ 

1050 FOR J=1 TO 500sNEXT J 

1060 RETURN 

1070 REM ************************* 

1080 REM INCREASE OUTPUT? 

1090 IF M(4]=0 THEN X=15sG0T0 1110 
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1100 
1110 



X = 1 8 
PRINT 



PRINT 
PRINT 



1 1 SO 

1 1 30 

ii 

1140 PRINT 



IT WILL COST $M»X» TO EXPAND 



TAB(8]p" OUTPUT BY 1% 



HOW MANY % DO YOU WISH TO RA 



ISE OUTPUT?" 

1 1 50 INPUT EP i IF EP<0 



1160 

1170 

1 1 80 

1 1 90 

1 200 

1 21 

1 220 

1 230 

1 240 

1 250 

1 260 

AT $M104" 
1 270 PRINT 



OR EP>1 00 THEN 115 



M(5]=0 

FOR T=1 TO 4 

M[T]=M(TJ+M(TJ*EP/100 

M [ 5 ]=M [ 5] +H(T} 

NEXT T 

TP=TP-EP*X 

FOR T=1 TO 500sNEXT T 

GOTO 170 

REM s**®***************®*® 

REM SALE OF FACTORY FOUR 
PRINT "FACTORY 4 IS VALUED 



FOR SALE 



IT LATER IF 



YOU CAN 'T REBUY 

YOU SELL IT BBO " 

1280 PRINT "DO YOU WANT TO SELL [Y/N]?» 

1 290 GOSUB 1 01 

1300 IF A$=»N" THEN 210 

1 31 TP=TP+1 04 

1 320 SF = 1 

1 330 M ( 5]=M (1 J+M ( 2]+M( 3] 

1 340 M [ 4] =0 

1 350 GOTO 1 70 

1360 REM ************************* 

1370 REM CHECK ON LOSSES 

1380 IF MP>0 THEN SA=QsGOTO 1480 

1390 SA=SA+1 

1 400 IF SA>1 1 THEN 1 420 

1410 GOTO 1 480 

1 420 CLSg PRINT 

1430 PRINT "YOU JUST MADE YOUR TWELFTH M 

ONTHLY" 

1440 PRINT 



"LOSS IN A ROW 



1450 PRINT TAB[6)s»Y0UR EMPLOYMENT" 
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1 460 

I " 

1 470 

1 480 

149 

1500 

OMPAN 

1 51 

1 520 

1530 

1 540 

1550 

1560 

1 570 

1580 

ADE M 

1590 

N MAD 

1 600 

D" 

1 61 

1 620 

1630 

1 640 

1650 

1660 

167 

1680 

1 690 

1700 

1710 

1720 

1 730 

1740 

1750 

1 760 

1770 

1780 

1790 



PRINT T A B [ 6 J f " I S HEREBY TERMINATED! 

END 

IF TP>=-250 THEN 1530 

CLSs PRI NT 

PRINT "UNDER YOUR MANAGEMENT, THE C 

Y HAS" 

PRINT "LOST MORE THAN $ M 2 5 ! " 

GOTO 1450 

IF TP>200 THEN 1 570 

RETURN 

REM SWEET SWEET SUCCESS!!! 

CLSsPRINT 

PRINT "WELL DONE! THE COMPANY HAS M 

ORE" 

PRINT " THAN $ M 2 ,, YOU'VE BEE 

E» 

PRINT " A MEMBER OF THE BOAR 



FOR 
END 
REM 
REM 
CLS 
RAN 
DIM 
NE = 
AW = 
AC = 
AS = 
MI = 
Y[3 
MS = 
FOR 
REA 
NEX 
RET 
DAT 



T=1 TO 2000sNEXT T 



INITIALIZATION 

DOMIZE VALf RIGHTS [TIMES p 2} J 

M[5] g Y[5] 
12000SREM STARTING NO EMPLOYEES 
22995IREM STARTING AVERAGE WAGE 
11100:REM COST PRICE/VEHICLE 
120001REM SELLING PRICE 
50*1 000 |HC=1 0100 
) =1 2500 
25sEF=77:FA=160sSF=0sHT=0 

J=1 TO 5 
D M [ J) 
T J 
URN 
A 8900*3250*2500*1625*16275 
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Life at the 
Super Bowl 



It all started back in 1823, at a very upper class school in England. A 
Rugby School student, William Webb Ellis, was playing soccer one 
day when he picked up the ball, tucked it under his arm, and ran fran- 
tically across his opponent's goal. In this moment the game that later 
became rugby football was born. From rugby football came rugby 
league, and eventually GRIDIRON. 

Some students from Harvard in 1874 saw the game, as it had 
then evolved, under way at Montreal University, and liked what they 
saw. They took some of the Montreal rules and used them to modify 
a soccerlike game that was already gaining favor in the States. 

The game took off, but was so rough and caused so many inju- 
ries that at the turn of the century many colleges called for it to be 
banned. However, Teddy Roosevelt, who liked the game (and most 
other rugged sports), suggested that instead of banning it, the game 
should be made simpler. A committee formed of leading coaches, 
managers, and players met in 1906 to consider Roosevelt's sugges- 
tion, and from this committee came the GRIDIRON we know today. 

In our program, you can either play against the computer team 
(known as the "Silicon Cowboys") or against another human being. 
In the game shown here, I decided to play against the computer: 



ONE PLAY ER OR TWO 
? 1 
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AND THE NAME OF THE VISITING TEAM? 
? HARTNE LL « S RAIDERS 

In this simulation, you have the option of throwing, carrying, or 
punting (including field goal attempts) the ball. The program allows 
for four fifteen-minute quarters, and tests your decision-making 
skills and reflexes. 

T H ERE ARE 60 MINUTES TO GO 

SILICON COWBOYS TO KICK OFF 
YOU ARE ON YOUR OWN 35 YARD LINE 
SILICON COWBOYS HAVE,.. 
KICKED 1 YARDS 
K I CK ED 2 YARDS 
KICKED 3 YARD S 

KICKED 52 YARD S 
KICKED 5 3 YARDS 
KICKED 54 YARDS 
KICKED 55 YARDS 

THE BALL IS CAUGHT I 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 



AND RETURNED 27 YARDS 
AND RETURNED 2B YARDS 
AND RETURNED 29 YARDS 

THE BALL IS DOWN ON 

HARTNELL'S RAIDERS'S 39 YARD LINE 
> PRESS ANY KEY < 

SI LICO HARTNE 

60 MINUTES TO GO 

HARTNELL'S RAIDERS IN POSSESSION 

D OWN 

1 YARDS TOGO 

START AT 3 9 YARD LINE 
NOW ON 39 YARD LINE 

61 YARD S TO TOUCHDOWN 
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ON THIS PLAY HARTNELL'S RAIDERS CAN 

EITHER 1 - THROW 

2 - CARRY 

OR 3 - PUNT 

Once you've decided on your play, the computer will begin a 
count from one to eleven. You have to get rid of the ball during that 
count. If you don't do so in time, you'll be sacked and lose yardage or 
possession. 

HARTNELL'S RAIDERS, YOUR QUARTERBACK HAS 

GOT THE BALL 

WAIT FOR THE COUNT, HARTNELL'S RAIDERS, 
THEN HIT ANY KEY... 
1 
2 
3 
4 
5 
6 

NICE PUNT,,, 

YOU'VE KICKED 24 YARDS 



The rules behind this simulation tempt you to wait as long as 
possible before delivering the ball. The longer you wait, the farther 
the ball will travel. For example, if you decide to throw the ball, and 
you stop the count on two, the ball will only travel ten yards, but if 
you'd stopped the count on ten, it would have gone forty yards. 

THE BALL IS CAUGHT I 

AND RETURNED 1 YARDS 

AND RETURNED 2 YARDS 

AND RETURNED 3 YARDS 

AND RETURNED 1 7 YARDS 

AND RETURNED 18 YARDS 

AND RETURNED 19 YARDS 

AND RETURNED 20 YARDS 
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THE BALL IS D OWN ON 

SILICON COWBOYS' S 58 YARD LINE 

SI LICO HARTNE 
59.7 MINUTES TO GO 

SILICON COWBOYS IN POSSESSION 

DOWN 

1 YARDS TO GO 

START AT 58 YARD LINE 
NOW ON 58 YARD LINE 
42 YARDS TO TOUCHDOWN 

ON THIS PLAY SILICON COWBOYS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 

As you can see, the fact that you've thrown a given distance does 
not mean the play will be completed successfully. The chances of a 
play being complete are linked to the distance thrown. 

TOUCHDOWN!!! 
TOUCHD OWN I I ! 
TOUCHD OWN I I ! 
TOUCHD OWN ! I ! 
TOUCHD OWN I ! I 
SILICON COWBOYS 6 
HARTNELL 'S RAIDERS 
TOP LAY FOR EXTRA POINT 
> PRESS ANY KEY < 



There is a lot of action in this simulation, and you're sure to en- 
joy dressing it up even more. Here are a few additional scenes of the 
program in action: 

AND RETURNED 27 YARDS 
AND RETURNED 28 YARDS 
AND RETURNED 2.9 YARDS 
AND RETURNED 30 YARDS 
AND RETURNED 31 YARDS 
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THE BALL IS D OWN ON 

HARTNELL'S RAIDERS'S 44 YARD LINE 

> PRESS ANY KEY < 

OK 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIODOVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
PERIOD OVER 
SILICON COWBOYS 27 
HARTNELL ' S RA ID ERS 6 

> PRESS ANY KEY < 



PERIOD OVER 
PERIOD OVER 
PERI OD OVER 
PERIOD OVER 
PERIOD OVER 
SILICON COWBOYS 27 
HARTNELL ' S RAID ERS 6 

> PR ESS ANY KEY < 
OK 
15 MINUTES TO GO 

HARTNELL'S RAIDERS IN POSSESSION 
DOWN 
1 YARDS TOGO 

START AT 44 YARD LINE 
NOW ON 44 YARD LINE 
56 YARDS TO TOUCHDOWN 

ON THIS PLAY HARTNELL'S RAIDERS CAN 
EITHER 1 - THROW 
2 - CARRY 
OR 3 - PUNT 
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3 
4 
5 
6 
7 



GREAT RUNNING BY THE OPPOSITION HAS 
CAUSED YOU TO LOSE 3 YARDS 
> PRESS ANY KEY < 
OK 

GAME OVER 
GAME OVER 
GAME OVER 
GAM E OVER 
GAME OVER 
GAM E OVER 
GAM E OVER 
GAM E OVER 
GAM E OVER 
GAM E OVER 
SILICON COWBOYS 40 
HARTNELL'S RAIDERS 6 



The listing of GRIDIRON is given in the next chapter. 
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When you want to try out for the Green Bay Packers, the New York 
Jets, or the Miami Dolphins, enter and run this listing: 

1 REM GRIDIRON 

20 CLS 

30 RANDOMIZE V A L ( R I G H T $ [ T I M E $ f 2 ) ) 

40 GOSUB 70 

50 GOTO 220 

60 REM ************************ 

70 FOR X=1 TO 1500SNEXT X 

80 RETURN 

90 REM ** ********************* * 

1 00 PRINT A$ j SA 

110 PRINT B$ ; SB 

120 RETURN 

130 REM ************************ 

140 IF Z$=A$ THEN Z$=B$sRETURN 

150 Z $ = A$ s R ETURN 

160 REM ************************ 

170 IF INKEY$<>"" THEN 170 

180 PRINT " > PRESS ANY KEY <" 

190 IF INKEY$=»» THEN 190 
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200 PRINT TAB(20)l"0K" 

210 REM ************** 

220 REM INITIALIZE 

230 DEF FNA(X)=INT[ RND 

240 PRINT "ONE PLAYER 

250 INPUT X 

260 IF X<1 OR X>2 THEN 

270 IF X=1 THEN VC=1 i A 

" 5 GOTO 30 

280 PRINT "WHAT IS THE 

TEAM?" 

290 INPUT A $ g I F A $ = " " 

300 PRINT "AND THE NAM 

TEAM?" 

310 1 NPUT B$ : IF B$ 

320 Z$=A$sNU=35 

330 CLS 

340 PRINT "THERE ARE "I 

10 "MINUTES TO GO" 

350 PRINT T A B [ 8 ) ? Z S " T 

360 PRINT "YOU ARE ON 

INE" 

370 IF VC=1 AND Z$=A$ 

400 
380 PRINT "TO KICK OFF 
390 GOSUB 170 
400 A=FNA[ 20 ] +40 
410 PRINT Z $ f " HAVE BBB 
420 FOR X=1 TO A 
430 PRINT TAB[X/3)j"KI 
440 NEXT X 
450 NU=NU+X 
460 GOSUB 70 
470 PRINT "THE BALL IS 
480 GOSUB 70 
490 A = FNA[ 30 J+1 
500 FOR X=1 TO A 
510 PRINT TAB[X/5)i"AN 



5RETURN 



[1 ) *X)+1 
OR TWO" 

250 
$="SILIC0N COWBOYS 

NAME OF THE HOME 

THEN 290 

E OF THE VISITING 



="" THEN 310 



NTMQ*[60-[W/4] ) )/ 

KICK OFF" 

YOUR OWN "NU" YARD L 

THEN GOSUB 70sG0T0 



CKED"X» YARDS" 



CAUGHT!" 



D RETURNED "X" YARDS 



520 NEXT X 

530 NU=ABS[ 1 OO-NU+X) 

540 GOSUB 140 

550 PRINT "-- 



_ _ _— " 
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560 PRINT 
570 PRINT 
580 IF Z$= 

600 
590 GOSUB 
TG = 1 g 
IF W = 6 
IF W = 1 
IF W = 2 
CLS 
PRINT 
PRINT 
GO" 



600 
61 
620 
630 
640 
650 
660 
TO 



"THE BALL IS DOWN ON" 

Z$"'S"NU"YARD LINE" 

A$ AND VC = 1 THEN GOSUB 7 : G T 

1 70 

D=0 i SL=NU 

OR W=180 THEN 2010 
20 THEN 2070 
40 THEN 2140 

LEFT$(A$ S 6) |SAgLEFT$(B$*6] |SB 
INT( 1 0* (6Q-[ W/ 4] )]/10" MINUTES 



670 GOSUB 

680 PRINT 

it 

690 PRINT 
PRINT 
PRINT 
PRINT 



70 



700 
71 
720 



Z$" IN POSSESSION" 
TAB [4] ? D "DOWN" 
TAB(4J?TG" YARDS TO GO" 



_ _ _ _ it 

730 PRINT 
740 PRINT 
750 PRINT 

760 PRINT 

_ _ _ _ » 

770 PRINT 
IF Z$ = 



780 

00 

790 

800 

81 

820 

830 

840 

OTO 

850 

GOTO 



PRINT 
PRINT 
PRINT 
PRINT 
P = 

IF Z$ = 
900 

IF Z$ = 
900 



"START AT "SL" YARD LINE" 
"NOW ON "NU" YARD LINE" 
100-NU" YARDS TO TOUCHDOWN" 



"ON THIS PLAY »| 

A$ THEN PRINT A$s» CAN"iGOTO 8 

B $ ? " CAN" 

"EITHER 1 - THROW" 
" 2-CARRY" 

" OR 3 -PUNT" 

A$ AND VC=1 AND D<3 THEN P=2sG 

A$ AND VC=1 AND TG<7 THEN P=2s 



860 IF Z$= 

EN P=3sG0T 

870 IF Z$= 

880 K$=INK 

80 

890 P = VAL(K$] SPRINT T A B ( 1 ] | " OK " P 



A$ AND VC=1 AND (100-NU)<31 TH 
900 

A$ AND VC=1 THEN P=1 S G0T0 900 

EY$sIF K$<"1" OR K$>"3" THEN 8 
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900 
91 
920 
930 
940 
950 



GOSU 

W = W + 

CLS 

PRIN 

PRIN 

PRIN 



_ n 



B 70 

1 

T Z$i" p YOUR QUARTERBACK HAS" 
T TAB ( 8 J 1 "GOT THE BALL" 

T " 

960 PRINT "WAIT FOR THE COUNT. " ? Z $ | " , " 

970 PRINT TAB[B) ; "THEN HIT ANY KEY aoB " 

980 IF INKEYIO"" THEN 980 

990 60SUB 70 

1000 G0SUB 2200 

1010 IF E=1 1 THEN 2340 

1020 PRINT " 

1030 ON P GOTO 1 050 ff 1 31 p 1 590 

1040 REM ************************ 

1050 PRINT "YOU'VE THR0WN"E*5" YARDS" 

1060 PRINT TAB[4)i"AND THE PLAYIS..." 

1 070 A=FNA[8 ] 

1080 IF A=1 THEN 1 520 

1 090 A=FNA[ E+1 J 

1100 IF A=1 THEN PRINT TAB[20)i" BBB C0MPL 

ETE"|G0T0 1220 

1110 PRINT TAB[20)i" saa INC0HPLETE" o D=D+1 

1120 GOSUB 1 70 

1130 PRINT « 



1140 
1150 
1160 

1 1 70 

I! 

1 1 80 
1 1 90 
1 200 
1 21 
1 220 
1 230 
1 240 
1 250 
1 260 
1 270 



IF D >3 THEN 1160 

GOTO 610 

PRINT "THAT WAS YOUR 4TH DOWN" 

PRINT "AND YOU'VE LOST POSSESSION 

D=0lTG=10:NU=ABS[100-NU) |SL=NU 

GOSUB 70 

GOSUB 140 

GOTO 610 

GOSUB 170 

NU=NU+[E*5} iTG=TG-[E*5} 

IF NU>1 00 THEN 1 800 

IF TG<1 THEN 1 280 

D = D + 1 g IF D >3 THEN 1160 

GOTO 61 



! ! 
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1 51 



1 440 

E=1 : GOTO 1 370 
SNAP, PASS AND RUN 
GAINED »E» YARDS" 



BY THE OPPOSIT 



1 280 D = iTG = 1 g SL = NU 
1 290 GOTO 61 

1 300 REM ** *****##$* 

1 31 A = FNA [1 5 J 

1320 IF A=1 THEN 

1330 E=A-5 

1340 IF E<0 THEN 

1350 IF E=0 THEN 

1360 PRINT "GOOD 

1370 PRINT "YOU'VE 

1380 GOSUB 170 

1390 TG=TG-Ei NU=ABS[ NU+E) gD=D+1 

1 400 IF NU>1 00 THEN 1 800 

1 41 IF TG<1 THEN 1 280 

1 420 IF D >3 THEN 1160 

1 430 GOTO 61 

1440 PRINT "GREAT RUNNING 

ION HAS" 

1450 PRINT "CAUSED YOU TO L0SE"ABS(EJ"YA 
RDS" 

1460 TG=TG-E:NU=NU+EiD=D+1 

1 470 GOSUB 1 70 

1 480 IF D>3 THEN 1160 

1 490 GOTO 61 

1500 REM a*®*****®*®®**®®*****®*® 

1510 PRINT "BAD SNAP SOB Y0U'VE" 

1520 PRINT "FUMBLED . . q AND» 

1530 PRINT "YOU'VE LOST POSSESSION.,,,," 

1540 NU=1 00-NUgD=0 sTG=1 s SL=NU 

1550 REM ®**®*****®®*®*®®*®®*®**® 

1560 GOSUB 170 

1570 GOTO 460 

1580 REM s********®***®*****®**:!.® 

1590 PRINT » N ICE PUNT BBB " 

1600 PRINT "YOU'VE KICKED "E*4" YARDS" 

1 61 NU = NU+E*4 

1620 IF NU>1 00 THEN 1 650 

1630 PRINT " 

_ ii 

1640 GOTO 460 

1 650 A = FNA[ 3 J 

1660 IF A>1 THEN 1740 

1670 PRINT "BUT YOU'VE MISSED THE GOAL!! 
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1680 IF NU-E*4<80 

4) ] 5 GOTO 1 700 

1 690 

1700 

1710 

1720 

1 730 

1740 

1750 

1760 

1770 

1780 

1790 

1 800 

1810 



THEN NU=ABS[1 00-[ NU-E* 



BBB AND SCORED!" 
SB = SB + 3 S GOTO 1770 



1 820 
1 830 
1 840 
1 850 
1 860 
1 870 
1 880 
1890 



NU = 20 

D=0 :TG=1 : SL=NU 

GOSUB 1 40 

GOSUB 170 

GOTO 610 

PRINT " 

IF Z$=B$ THI 

SA=SA+3 

GOSUB 1 00 

GOSUB 170 

NU = 35 s GOTO 330 

CIS 

FOR X=1 TO 5 

PRINT TAB(X*2)|" TOUCHDOWN! II" 

NEXT X 

IF Z$=A$ THEN SA=SA+6sG0T0 1860 

SB=SB+6 

GOSUB 1 00 

"TO PLAY FOR EXTRA POINT" 

170 



PRINT 
GOSUB 
PRINT 



1900 PRINT "THE BALL IS SNAPPED BBB PREPAR 

E TO KICK!" 

1 91 GOSUB 70 

1920 GOSUB 2200 

1930 IF E>9 THEN PRINT "YOU MISSED" |NU=2 

l GOTO 1970 

1940 PRINT "YOU SC0RED BBB "iNU=35 

IF Z$=A$ THEN SA=SA+1iG0T0 1980 

SB = SB + 1 I GOTO 1980 

GOSUB 140 



1 950 
1 960 
1 97 
1 980 
1 990 
2000 
201 
2020 
2030 
2040 
2050 
2060 
2070 



GOSUB 1 00 
GOSUB 170 
GOTO 330 
FOR X=1 TO 



1 



PRINT TAB( 2*X) ; "PERIOD 

NEXT X 

GOSUB 1 00 

GOSUB 170 

GOTO 660 

FOR X=1 TO 10 



OVER" 
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2080 PRINT TAB[2*X] f"HALF TIME" 

2090 NEXT X 

2100 GOSUB 100 

21 1 Z$ = B$ 

21 20 GOSUB 170 

2130 NU=35 s W=W+2 s GOTO 330 

2140 FOR X=1 TO 10 

2150 PRINT TAB[ 2*X] p "GAME OVER" 

2160 NEXT X 

2170 GOSUB 1 00 

2180 END 

2190 REM s**®***®*®*®**®***®**®** 

2200 E=0 :X=1 

2210 IF Z$=A$ AND VC=1 THEN PRINT 

ONE FOR " p A $ g G T 2290 

2220 E=E+1 gX=X-1 

2230 PRINT TAB [ EJ p E 

2240 FOR Y=1 TO X*1 a 5 

2250 IF INKEY$<>»» THEN 



"THIS 



Y=X®1 B 5+1 i RETURN 



2260 NEXT Y 

2270 IF E=11 THEN RETURN 

2280 GOTO 2220 

2290 FOR E=1 TO FNA[7]+2 

2300 FOR J=1 TO 60sNEXT J 

231 PRINT TAB [ E J | E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATE!" 

2350 PRINT "YOU'VE BEEN SACKED!" 

2360 E=FNA{4] 

2370 IF E=3 THEN 2430 

2380 PRINT "AND LOST FIVE YARDS!" 

2390 TG=TG+5 l D=D+1 s NU=NU-5 

2400 GOSUB 1 70 

241 IF D >3 THEN 1160 

2420 GOTO 61 

2430 PRINT "AND LOST POSSESSION!" 

2440 D = 0lNU = ABS(100-NU + 5) gSL = NUsTG 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 



1 
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The 
Grand Slam 



In this sports simulation, you have a chance to play a three-set match 
of tennis against your computer. If you prefer, you can also play 
against another human being, with the simulation reporting on, and 
moderating, the action. 

Tennis got its start in England in the middle of the last century. 
By 1877 it was such a popular game that a national championship 
was staged at Wimbledon. There is a maximum of five sets in a match 
for men, and three for women. You have to win a maximum of six 
games to win a set You need to lead by two games in order to win a 
set 

The simulation calls on your decision-making skill and tests 
your reflexes. Your first decision concerns the speed of your serve. If 
you elect to play against the computer, it will always serve first, in 
order to allow you to see it in action. You 11 learn a lot more about the 
simulation from watching the computer serve than from reading this 
introduction. 

The simulation is weighted so that fast serves have a better 
chance of an ace than do slow serves, but there is also a greater 
chance of a fault Slow serves will rarely result in an ace, but are also 
unlikely to be faults. 

After the serve, the simulation calls on your reflexes. The screen 
clears and indicates whose court the ball is in. After a brief pause, the 
computer will begin a countdown to - 1. To hit the ball, you need to 
wait until the count reaches zero, and then press any key. 

128 



If you "swing" too soon or too late, you'll miss the ball, and the 
computer will tell you whether the ball was in or out of play. Note that 
you can choose to leave a ball, if you think it is going to go out If you 
"hit" the ball by striking a key just as the count reaches zero, the 
screen will clear and show the ball in the other player's court This 
process continues until one player or the other misses the ball. 

The program begins by asking you whether there will be one hu- 
man player or two. If there is only one, it will ask for the player's name 
with the prompt NAME OF SECOND PLAYER?: 

ONE HUMAN PLAYER OR TWO? 1 
NAME OF SECOND PLAYER? TIMOTY 



This simulation needs names that are six letters long. If you enter a 
longer name, the computer will cut it down to size. The computer 
player's name, as you'll see in a moment, is "Bjornx". The match be- 
gins with Bjornx serving: 



BJORNX SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT • S A FAST SERVE . 



Bjornx elects a fast serve, and the mere human must attempt to 
return it: 



TIMOTY, THE BALL IS 
IN YOUR COURT 



HIT ANY KEY, WHEN YOU SEE THE ZERO, 
TO RETURN THE BALL. . . 
5 
4 
3 
2 
1 
YOU MISSED THE BALL, AND . . . 
IT WAS IN... BAD MI STAK E 
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Unfortunately, Timoty is not playing with his usual fine form. 
The score is shown before Bjornx serves again: 



SET SET SET 



12 3 GAME 
BJORNX 30 
TIM OTY 



BJORNX SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

1 > IT'S A FAST SERVE. 



The scoring system in our simulation follows the real game, 
with a minimum of four points needed to win a game: 15, 30, 40, and 
game. If both sides score 40, "deuce" is declared, and the first player 
to score a point is said to have the "advantage." A further point is 
needed to win. If the opponent gets a point instead of the player with 
the "advantage," the score returns to "deuce." Of course, you do not 
have to worry about this scoring system, as the computer obligingly 
keeps track of everything for you. 

Here are a few more "snapshots" of the game in progress: 

GAME TO BJORNX 



SET SET SET 



1 2 3 GAM E 
BJORNX 10 
TIMOTY 



TI M OTY SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 



1 > IT'S A FAST SERVE. 
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.... OUT ... . 
. . . SECOND SERVE 
TIM OTY SERVING 
DO YOU WANT TO SERVE 1 

OR 2 



- FAST 

- SLOW 



> IT « S A SLOW SERVE. 



B JORNX 
T I M OTY 



SET SET SET 



1 2 
6 
1 



TIM OTY 
DO YOU 



SERVING 
WANT TO 



3 GAM E 

4 



SERVE 
OR 



FAST 
SLOW 



> IT'S A SLOW SERVE. 



B JORNX 
TIMOTY 



SET SET SET 



B JORNX 
DO YOU 



SERVING 
WANT TO 



3 GAME 
1 5 
D 



SERVE 
OR 



FAST 
SLOW 



1 > IT'S A FAST SERVE, 
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It appears that the human race is no match for the mighty com- 
puter: 



SET SET SET 



1 2 3 GAME 

BJORNX 6 4 30 

TIM OTY 12 40 

TIMOTY SERVING 

DO YOU WANT TO SERVE 1 - FAST 

OR 2 - SLOW 

2 > IT'S A SLOW SERVE. 



BJORNX 
TIM OTY 



SET SET SET 



1 


2 


3 


GAM E 


6 


A 





{DEUCE 


1 


2 





{DEUCE 



SET SET SET 



1 2 3 GAME 
BJORNX 6 6 6 
TIMOTY 14 4 
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20 



The 

TENNIS 



When you're ready to take on Bjornx for a set or two, enter and run 
the following listing: 



1 

20 

30 

40 

50 

60 

70 

80 

90 

1 00 

1 1 

1 20 

E» 

1 30 

1 40 



REM TENNIS 

CLS 

RANDOMIZE V A L ( R I G H T $ ( T I M E $ , 2 ] ) 

AA = % BB = sT = s KA = 

XA = s YA = : ZA = 

XB = s YB = s ZB = 

DEF FNA[X) =1 NT[ RND ( 1 I *X] +1 

INPUT "ONE HUMAN PLAYER OR T W " ; A 

IF A<1 OR A>2 THEN 80 

IF A = 1 THEN A$ = » BJORNX ":VC = 1 

IF VC=1 THEN 160 

PRINT "PLEASE ENTER A SIX-LETTER 



INPUT "NAME OF FIRST 
IF L E N ( A $. ] < 6 THEN A $ 



PLAYER" 5 A$ 
A$+" " s GOTO 



NAM 



1 40 



1 50 A$ = LEFT$ ( A$ p 6 I 

160 INPUT "NAME OF SECOND PLAYER" ?B$ 
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170 IF LEN('B$)<6 THEN B$ = B$ + » "iGOTO 170 



1 80 B$=LEFT$ (B$,6] 

1 90 S = 1 i AA = 1 ? BB = 1 

200 CLS 

21 P$ = A$ g R$ = B$ 

220 REM ***************** 

230 IF P$=A$ THEN R$=B$ 

240 IF P$=B$ THEN R$=A$ 

250 PRINT P $ § " SERVING" 

260 PRINT "DO YOU WANT TO 



SERVE 1 - FAST 



270 PRINT " 



OR 2 - SLOW 



AND SC=0 THEN KB=1 



AND SC=1 THEN KB=2 



K$>"2" THEN 300 



280 IF P$=A$ AND VC=1 
t GOSUB 1 720 l GOTO 330 

290 IF P$=A$ AND VC=1 
1 GOSUB 1 720 g GOTO 330 

300 K$=INKEY$ 

310 IF K $ < " 1 " OR 

320 KB=VAL(K$J 

330 PRINTuPRINT TAB(B)|KBiTAB(10)f"> IT 

S A » p 

340 IF KB = 1 THEN PRINT," FAST "p 

350 IF KB=2 THEN PRINT "SLOW" ; 

360 PRINT » SERVE, „ „ » 

370 GOSUB 1 720 

380 IF KB=1 THEN E B = F N A [ 3 ] i G OT 400 

390 EB=FNA ( B ] 

400 IF EB=1 THEN 450 

410 IF EB=3 AND SC=Q THEN 520 

420 IF EB=3 AND SC=1 THEN 590 

430 GOTO 670 

440 REM ****************************** 

450 CLSiPRI NT 

460 PRINT TAB(8] f " . . . B A C E „ 

470 GOSUB 1720 

480 SC=0 

490 IF P$=A$ THEN 1140 

500 GOTO 1150 

510 REM ****************************** 

520 CLSs PRINT 

530 PRINT TABM2J f » . . . a OUT a 

5 4 PRINT TAB(8Ji" aoa SEC0ND SERVE BBO " 
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550 
560 
570 
580 
590 
600 
61 
620 
630 
640 
650 
660 
670 
680 
690 
700 
OUR 
71 
720 
730 

ZER 
740 
750 
760 
770 
780 
790 
800 
81 
820 
830 
840 
850 
860 
870 
880 
890 
900 
A(B) 
91 
920 
930 
940 
950 



GOSU 
SC = 1 
GOTO 

REM 

CLSs 
PRIN 
PRI N 
GOSU 
SC = 
IF P 
GOTO 
REM 
SC = 
CLS: 
IF I 
PRIN 
COUR 
PRIN 
IF R 
PRIN 
0, 

IF I 
X = 4* 
GOSU 
E = 5 
PRIN 
Y=Y- 
S$ = I 
IF S 
IF S 
IF Y 
E = E- 
IF E 
IF E 
GOTO 
IF K 
EA = F 
IF E 



B 1720 



230 



PRI NT 

T T A B ( 1 2 J 1 » 

T TAB[9] | " . 

B 1720 



...OUT...." 

. .DOUBLE FAULT 



$ = A$ THEN 11 50 
1 1 40 



PRINT 

NKEY$<>»" THEN 690 

T R$|" g THE BALL IS"gPRINT "IN Y 

T« 

T « n _ 

$=A$ AND VC=1 THEN 750 

T "HIT ANY KEY, WHEN YOU SEE THE 

TO RETURN THE BALL..." 
NKEY$<>"» THEN 740 
FNA ( 3 ) g Y=X 
B 1720 

T TAB[ 2*{1 1-E] J | E 

1 

NKEYI 

$<>"" AND E=0 THEN 890 

$<>"» THEN 990 

>0 THEN 7 90 

1 s Y=X 

<-1 THEN 990 

=-1 AND R$=A$ AND VG=1 THEN 890 

780 
B=1 THEN EA=FNA[ 2 ] : GOTO 1000 
NA{4] 
=0 AND R$=A$ AND VC=1 THEN EA=FN 



IF EA=1 THEN 940 

IF R$=A$ THEN R$=B$lG0T0 670 

R$=A$ i GOTO 670 

PRINT R$5» p YOU'VE HIT THE BALL" 

PRINT TAB[8]p"0UT OF PLAY..." 
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960 GOSUB 1720 

970 IF R$=A$ THEN R$=B$iGOTO 1150 

980 GOTO 1140 

990 EA=FNA(4] 

10D0 IF EA=1 THEN 1070 

1010 PRINT "YOU MISSED THE BALL f AND 8 



1020 
1030 
1 040 
1 050 
1060 
1 070 
1 080 
1090 
1100 
1110 
1 1 20 
1 1 30 
1 1 40 
1150 
1160 
1170 
AA>1 
1180 
BB >1 

1 1 90 

ii «. _ _ 

1 200 

n 

1 21 
1 220 
1 230 
1 240 
1 250 
1 260 
1 270 
1280 
1 290 
1 300 
1 31 
1 320 
1 330 
1 340 



GOSUB 
PRINT 
GOSUB 
IF R$ = 
GOTO 1 
PRINT 
GOSUB 
PRINT 
GOSUB 
IF R$ = 
GOTO 1 
REM ** 
AA=AA+ 
BB=BB+ 
IF AA< 
IF ( BB 

J THEN 
IF ( AA 

] THEN 
IF AA> 

" i GOTO 
IF BB> 

" S GOTO 
C $ = » { D 
REM ** 
RESTOR 
FOR = 
READ C 
NEXT D 
RESTOR 
FOR D = 
READ D 
NEXT 
REM ** 
CLS 
PRINT 
PRINT 



1 720 

" IT WAS IN. ..BAD MISTAKE" 

1720 

A$ THEN R$=B$sG0T0 1150 

1 40 

"YOU MISSED THE BALL AND..." 

1 720 

" IT WAS OUT.. WELL LEFT" 

1 720 

A$ THEN R$=B$sGOTO 1140 

1 50 

««$&*$«$$«$«#$$«$»««#«$«$$$$ 

1 s GOTO 1160 

1 

5 AND BB<5 THEN 1230 

>4 AND AA<4) OR (BB>4 AND BB 

AA = 1 s BB = 1 i GOTO 1 500 

>4 AND BB<4] OR {AA>4 AND AA 

AA = 1 : BB = 1 : GOTO 1 440 

4 AND AA>BB THEN C$="ADV"|D$: 

1 320 

4 AND BB>AA THEN D$=»ADV"sC$: 

1 320 

EUCE"gD$ = " {DEUCE "sGOTO 1320 

E 

1 TO AA 

$ 



1 TO BB 

$ 



SET SET SET" 
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1 350 PRINT 
1 360 PRINT 



1 2 3 GAME" 
" sXAj" »|YA S " » ? ZA|» 
" ! X B ? » " ? Y B | » " j Z B j " 



1370 PRINT A $ j " 

" sC$ 
1380 PRINT B $ g » 

" I D $ 

1390 PRINT " « 

1 400 GOSUB 1 720 

1410 IF T<>1 THEN 230 

1 420 END 

1430 REM 'J'***************************** 

1440 CLS 

1450 PRINT "GAME TO " 5 A$ 

1460 GOSUB 1720 

1470 IF S = 1 THEN X A =X A + 1 i C $ = » " s D $ = « " g G 

OTO 1 560 

1480 IF S=2 THEN YA=YA+1sC$="0"sD$=»0":G 

OTO 1580 

1490 IF S=3 THEN ZA=ZA+1sC$=»0» s D$="Q":G 

OTO 1 600 

1 500 CLS 

1510 PRINT "GAME TO » g B $ 

1 520 GOSUB 1 720 

1530 IF S = 1 THEN XB=XB + 1 s C$ = "O n s D $ = "0 " : G 

OTO 1 560 

1540 IF S=2 THEN YB=YB+1sC$="0" sD$="Q" S G 

OTO 1580 

1550 IF S=3 THEN ZB=ZB+1 s C$="0 " : D $="0 " : G 

OTO 1600 

1560 IF (XA>5 AND XB<5] OR (XA<5 AND XB> 

5 ) THEN 1630 

1570 IF (XA>5 AND XA-XB>1] OR (XB>5 AND 

XB-XA>1 J THEN 1 630 

1580 IF [YA>5 AND YB<5) OR (YA<5 AND YB> 

5 J THEN 1 630 

1590 IF [YA>5 AND YA-YB<1) OR (YB>5 AND 

YB-YA>1 ) THEN 1 630 

1600 IF [ZA>5 AND ZB<5] OR [ZA<5 AND ZB> 

5) THEN 1680 

1610 IF (ZA>5 AND ZA-ZB>1) OR (ZB>5 AND 

ZB-ZA>1 ) THEN 1 680 

1620 GOTO 1 640 

1630 S=S+1 
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1 040 AA=1 : BB=1 

1650 IF P$ = A$ THEN R $ = A $ g P $ = B $ s G 0T 1320 



1660 P$=A$ s R$=B$s GOTO ,1 320 

1670 REM ****************** 

1 6B0 T=1 

1690 GOTO 1320 

1700 REM ****************** 

1710 REM DELAY 

1720 FOR M=1 TO 1000sNEXT M 

1730 RETURN 

17 4 DATA " " , " 1 5 " , " 3 " 9 " 4 
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2in< 



Now you have the chance to drive a simulated racing car around your 
choice of four of the world's greatest Grand Prix circuits. You, too, 
can be a hero on the British course known as "The Whale," at Ger- 
many's "The Key," on the Italian track called "The Shoe," or on the 
3100-meter track at Monaco. 

The program begins by asking your name, wishing you luck, and 
asking you which track you wish to try and how many laps the race 
will be over: 

WHAT IS YOUR NAME, DRIVER? HARTNELL 

OK, GOOD LUCK, HARTNELL 

OK, GOOD LUCK, HARTNELL 

OK, GOOD LUCK, HARTNELL 

********************************* '£*** 

WHICH RACE 00 YOU WANT TO TAKE PART IN: 



BRITISH 
GERMAN 
ITALIAN 
MONACO 



GRAND 
GRAND 
GRAND 
GRAND 



PRIX 
PRIX 
PRIX 
PRIX 



26 50MT 
1 7 00MT 
2200MT 
31 00MT 



! 1 
: 2 
: 3 
: 4 



ENTER A NUMBER (1 TO 4 
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♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦I********************** 
OK, THE BRITISH RACE 

OVER HOW MANY LAPS? 
? 1 



The aim of the simulation, naturally enough, is to complete the 
race as quickly as possible, without crashing and without overheat- 
ing either your engine or your brakes. The race begins as follows: 

You start the race, as the fifth line down indicates, in the sixth 
position. On the British circuit, you start the simulation at 140 ki- 
lometers an hour, just under the speed recommended for the ap- 
proaching corner. To increase your speed, you hit the "M" key. The 
"Z" key will slow you down, and the space bar allows you to maintain 
the same speed. 

A few seconds after the above "snapshot" of the simulation, the 
screen looked like this: 



ENGINE TEMPERATURE 100 C. (MAX, 200) 

BRAKE TEMPERATURES 10 C. (MAX. 500) 

DISTANCE COVERED: METERS 

5 LAPS 

YOU'RE IN POSITION 6 

CURRENT SPEED: 140 KPH 

: 77 . 7 METERS PER MOVE 

CORNER APPROACHING 800 METERS 

RECOMMENDED SPEED: 150 KPH 



The simulation run began with the first corner 800 meters away. 
This has now shrunk to just 57 meters, and I've increased my speed 
to 148 kph, just below the recommended speed for taking that corner 
of 150 kph. The engine has warmed up slightly, but still a long, long 
way away from the maximum of 200 C, and the temperature of the 
brakes has gone up from 10 degrees to nearly 55. 



ENGINE TEMPERATURE 104.6 C. (MAX. 200) 
BRAKE TEMPERATURES 54.7 C„ (MAX. 500) 

140 



DISTANCE COVERED: 742.2 METERS 

s .28 LAPS 

YOU'RE IN POSITION 6 

CURR ENT SPEED ; 148 KPH 

s 82.2 METERS PER M OVE 

CORNER APPROACHING 57 METERS 

RECOMMENDED SPEED; 150 KPH 



I safely negotiate that corner, but find that I have perhaps been 
a bit too cautious: with just under half of the one-lap race completed 

I have fallen back to the seventh position after starting in position six: 

ENGINE TEMPERATURE 87.1 C. (MAX. 200] 

BRAKE TEMPERATURE: 157.3 C. (MAX. 500] 

DISTANCE COVERED: 1102 METERS 

: .41 LAPS 

YOU'RE IN POSITION 7 

CURRENT SPEED: 112.3 KPH 

: 62.3 HETERS PER HOVE 

CORNER APPROACHING 97 METERS 
RECOMMENDED SPEED: 90 KPH 



I am just 97 meters from the next corner, where the recom- 
mended cornering speed is 90 kph. I'm doing just over 112 kph. Fran- 
tically, I slam on the brakes, punching at the "Z" key. But it is too late: 



YOU CORNERED AT 104.8 KPH 
AND THE MAXIMUM SPEED WAS JUST 90 
YOU SPIN OFF THE TRACK... 
AND CRASH I ! ! ! ! 

YOU ONLY COMPLETED 121*8.4 METERS, 
OR .45 LAPS AND AT THAT 
STAGE WERE IN POSITION 7 
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YOUR AVERAGE SPEED WAS 137.07 KPH 
YOU WERE 2 TH FASTEST ON STRAIGHTS, 
AND 12 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, »N' FOR NEW 
RACE, • E • TO END 



I was in seventh place when my race ended. The final screen tells 
me my average speed was a shade over 137 kph, I was second fastest 
on the straights, and only twelfth fastest on the corners. 

As you can see, you are given the choice of running the same 
race again (by pressing "S"), choosing a new race ("N"), or ending the 
simulation ("E"). 

I press "N" and decide on the German circuit: 

WHICH RACE DO YOU WANT TO TAKE PART IN: 



BRITISH 


GR A ND 


PRIX 


26 50MT 


: 1 


GERMAN 


GRAND 


PRIX 


170DMT 


: 2 


ITALIAN 


GR A ND 


PRIX 


2 200MT 


: 3 


M ONAC 


GRAND 


PRIX 


31 00MT 


: 4 



ENTER A NUMBER (1 TO 4) 
OK, THE GERMAN RACE 



OVER HOW MANY LAPS ? 
? 1 



This time, I take fewer risks, and am soon on my way to com- 
pleting the circuit without mishap: 

ENGINE TEMPERATURE 117.5 C. (MAX. 200) 

BRAKE TEMPERATURE: 34.5 C . (MAX. 500) 

DISTANCE COVERED: 1424.3 METERS 

; .83 LAPS 

YOU'RE IN POSITION 27 
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CURRENT SPEED; 116. 3 KPH 

: 64.6 METERS PER MOVE 

CORNER APPROACHING 75 METERS 

RECOMMENDED SPEEDs 200 KPH 



A few careful moments later, and I've done it: 

WELL DONE, HARTNELLI I 

YOU MANAGED TO LAST OUT THE FULL 
1 LAP RACE,,, 



The main value of this simulation, apart from that of its high en- 
tertainment potential, is showing how the facts of "real life" (such as 
the engine speed maximum, and the data on each track) can be en- 
coded into a program. You can also see how the formulas link the var- 
ious outputs together in a realistic way— for example, how lines 370 
and 380 work out how far you have traveled, by converting your speed 
in kilometers per hour into meters. 

Note also that lines 320 and 330, which act on your attempts to 
speed up or slow down, add or subtract a value that is related to the 
actual speed you are traveling. This means you can brake more dra- 
matically when you are moving quickly than you can while moving 
slowly. Using a value that is related to current speed also overcomes 
the realism-destroying practice of just changing the current speed by 
a fixed value each time a key is pressed. 

YOU FINISHED IN 30 POSITION, 
AFTER STARTING IN 6TH POSITION... 
YOUR AVERAGE SPEED WAS 100.38 KPH 
YOU WERE 14 TH FASTEST ON STRAIGHTS, 
AND 47 TH FASTEST ON CORNERS. 

PRESS 'S' FOR SAME RACE, 'N« FOR NEW 
RACE, ' E ' TO END 
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The Tracks 

Here are the four Grand Prix circuits that are encoded within the 
program. 

British Grand Prix 

"The Whale," 2650 meters: 



Start 



250m 



800m 



150 




300m 



400m 



German Grand Prise 

"The Key," 1700 meters: 



'Death Elbow" 
120 



100m 



200 



200m 




200 



200m 



600m 



Finish 
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Italian Grand Prix 

"The Shoe," 2200 meters: 



150 



200m 



Start 



800m 




" Death V»-*^ 350m 300m \ 150m 
Corner" -|20 



120 



300m 



lonac Grand Prix 
3100 meters: 



Start 



400m 



175 



175 300m 



200 



120 200m 



200m 



200 



400m 




120 



300m 



Numbers not followed by "m" indicate maximum cornering speeds. 
Numbers followed by "m" (for meters) indicate distances between corners. 
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The 

GRAND PfliX 

Listing 



Take a firm grip on the wheel, and tackle the GRAND PRIX circuits 
with this listing: 



1 

SO 

30 

40 

50 

60 

70 

80 

90 

1 00 

1 1 

1 20 

130 

1 40 

J/10 

1 50 

0J/1 

1 60 

0)/1 



EM GRAND PRIX 

OSUB 2 2 0s REM INITIALIZE 

OSUB . 1 1 90:REM CHOOSE TRACK 

EM MAJOR LOOP 

OSUB 1 20 : REM PRINTOUT 

OSUB 280sREM A C C E L F R A T I N/ C H E C K 

OSUB 450?REM E N G I N E/ B R A K E S 

OSUB 500SREM C R N E R/ P S I T I N 

GOTO 60 

REM PRINTOUT 

CLS 

PRINT "ENGINE TEMPERATURE "INT(ENG*10 

"C a (MAX,, 20 0)" 

PRINT "BRAKE TEMPERATUREg"INT(BRAK*1 

0»C a [ M A X a 5 ) " 

PRINT » DISTANCE COVERED! "INT(DIST*1 

"METERS" 
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g"INT(DIST*1 



170 PRINT " 

00/RR]/100"LAPS" 

180 PRINT "YOU'RE IN POSITION " I N T ( F P ] 

190 PRINT » 



200 PRINT » 

1 J / 1 " K P H " 

210 PRINT » 

5 o 555)/10" METERS PER MOVE" 

220 PRINT " 



CURRENT SPEEDg »INT[SPEED* 
l" INT(SPEED* 



230 PRI NT 
E T E R S " 
240 PRINT 
250 PRINT 



"CORNER APPROACHING "INT(APP) »M 
"RECOMMENDED SPEED? "C(C]"KPH" 



260 RETURN 

270 REM ************************* 

280 REM CHECK ACCELERATION AND FACTORS 
290 X$=INKEY$gIF X $ <> " Z " AND X $ <> " M " AND 

X$<>" " THEN 290 
300 PRINT TAB(12)i"0K" 
31 X=0 

320 IF X $ = » M » THEN X=SPEED/15 
330 IF X$="Z" THEN X=-SPEED/15 
340 NUM=NUM+1gREM NUMBER OF MOVES 
350 SPEED=SPEED+X 
360 IF SPEED<0 THEN SPEED=0 
370 TRA V=SP EED * . 5555 : R EM DISTANCE 

TRAVELLED 
380 DIST=DI ST+TRAVs REM TOTAL DISTANCE 

TRAVELLED 
390 ENG = ENG+ [X/2 ] + . 07 : IF ENG<70 THEN ENG 
= 70 + RND ( 1 J *8 gREM ENGINE TEMP 
400 IF X>0 THEN B R A K = B R A K * . 9 g R E M BRAKE 

TEMP FALLINGl ACCELERATING 
410 IF X<1 THEN B R A K = B R AK - [ 3 *X ) - R N D [ 1 ] * 3 
gREM BRAKE TEMP INCREASING! BRAKING 
420 IF BRAK<8 THEN BRAK=8+RND[1J*8 
430 RETURN 
440 REM ***************** ** $***** 

450 REM CHECK ENGINE/BRAKE TEMP 

460 IF ENG>200 THEN PRINT "YOUR ENGINE H 

AS OVERHEATED" g GOTO 830 
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470 IF BRAK>500 THEN PRINT "YOUR BRAKES 
HAVE OVERHEATED" s GOTO 830 
480 RETURN 

REM ************************* 

REM CHECK CORNERING SPEED 

AND FIELD POSITION 
APP=APP-TRA V 
IF APP>0 THEN RETURN 
CRASH=0 
IF SPEED >(C( C) *1 D 1 25) THEN CRASH=1sG 

690 

IF SPEED>(C(C) *1 „1 ] THEN GOTO 690 

PNT = PNT + 100-UC[C)*1 ,1 ) -SPEED ) gREM C 
ORNERING POINTS 
570 NC=NC+1sREM NUMBER OF CORNERS 

CP=96-(PNT/NC) sREM CORNERING 

POSITION 

AM=AM+A[C) sREM AVERAGE NUMBER 
OF . MOVES ALLOWED 

RP=NUM-AM i REM RACING POSITION? YOUR 
MOVES MINUS AVERAGE MOVES 

FP=(CP+RP)/2sREM FIELD POSITION IS 
AVERAGE OF CORNER & RACE POSITIONS 
620 IF FP<1 THEN FP=1 
630 C=C+1 

640 IF C = WW THEN C=1sREM LAP OVER 
650 APP = APP + D { C ) 
660 IF LAP*QQ=AM THEN 910sREM RACE OVER 

670 RETURN 

680 REM ************************* 

690 REM CRASHED 

700 CLS 

710 PRINT "YOU CORNERED AT"INT(10*SPEED) 



490 
500 

51 
520 
530 
540 
OTO 
550 
560 



580 



590 



600 



61 



PRINT 
/ 1 " K P H " 
720 PRINT 
T » C [ C ) 
730 GOSUB 
PRINT 
GOSUB 



"AND THE MAXIMUM SPEED WAS JUS 



740 
750 
760 
770 



2330 
"YOU 
2330 



SPIN OFF THE TRACK. 



IF CRASH=1 THEN 8 30 

PRINT "YOU'VE LOST 20 SECONDS, BUT Y 
OU'RE ABLE TO REJOIN THE RACE" 
780 NUM=NUM+10gSPEED=INT(2*C[C)/3) 
790 PNT=PNT+50 
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800 GOSUB 2330 

810 GOTO 570 

820 REM ************************* 

830 PRINT ".. AND CRASH!!!!!" 

840 PRINT " . . __ 



850 PRINT "YOU ONLY C OM P L E T ED " I N T [ 1 * D I S 
T)/10" METERS," 

860 PRINT "0R"INT(DIST*1Q0/RRJ/100"LAPS 

AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION •» I N T [ F P ) 

880 PRINT " 



890 GOTO 1050 

900 REM ************************* 

910 REM RACE OVER 

920 CLS 

930 EFLAG=1 

940 FOR X=1 TO 20 

950 PRINT TABlXJ; n WELL DONE, » g A $ ; " ! ! 

960 PRINT TAB(21-X);»WELL DONE, " f A $ ; 
ii 

970 NEXT X 

980 PRINT " 



I ! 



990 PRINT "YOU 

ULL 

1000 PRINT "-- 



MANAGED TO LAST OUT THE 
"LAP "LAP RACE..." 



GOSUB 
PRINT 



1 01 

1 020 

[FP] 

1 030 

N . . . » 

1 040 GOSUB 

1 050 PRI NT 



2330 
"YOU 



FINISHED IN POSITION "INT 
PRINT "AFTER STARTING IN 6TH POSITI 



2330 

"YOUR AVERAGE SPEED WAS"INT[D 
IST*180/NUMJ/100"KPH" 
1060 GOSUB 2330 
1070 IF RP<1 THEN RP=1 
1080 IF CP<1 THEN CP=1 

1090 PRINT "YOU WERE»INT(ABS(RP})»TH FAS 
TEST ON STRAIGHTS*" 

1100 PRINT "AND»INT( ABS[CP) ] «TH FASTEST 
ON CORNERS,," 
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1110 PRINTzPRINT "PRESS 'S« FOR SAME RAG 

E p ' N • FOR NEW RACE, ' E ' TO END" 

1120' I$=INKEY$gIF I$<>»S" AND !$<>"N" AN 

D I $ <> " E " THEN 1120 

1130 IF I$="E» THEN END 

1 1 40 GOSUB 2240 

1 1 50 RESTORE 

1160 IF I$=»S" THEN GOSUB 1490sLAP=L2APg 

GOTO 60 

1170 IF I$="N" THEN CLS:GOSUB 1 2 5 s G T 

60 

11 BO REM ************************* 

1190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR N A M E „ DRIVER" i A 

$ 

1210 PRINT 

1220 FOR X=1 TO 3 

1230 PRINT TAB[4*X)i"0K, GOOD LUCK P " g A $ 



1 240 GOSUB 2330 s NEXT X 
1250 PRINT "********** 



1260 PRINT "WHICH RACE DO YOU WANT TO TA 

KE PART IN:" 

1270 PRINT 

1280 PRINT T A B [ 7 ) ; " BRITISH GRAND PRIX 2 

6 5 M T i 1 " 

1290 PRINT T A B [ 7 J l " GERMAN GRAND PRIX 1 

7 M T ;2 H 

1300 PRINT T A B [ 7 ) g " ITALIAN GRAND PRIX 2 

2 M T :3" 

1310 PRINT TAB[7)g "MONACO GRANDPRIX 3 

1 M T 14" 

1 320 PRI NT 

1330 PRINT TAB(7]i" ENTER A NUMBER (1 TO 

4) " 

1 340 K$=I NKEY$ 

1350 IF K$<"1» OR K$>»4" THEN 1340 

1 360 GP=VAL[K$ ] 

1370 PRINT « **************************** 



1380 PRINT TAB(8]|"0K P THE "? 

1390 IF GP=1 THEN PRINT "BRITISH"? 

1400 IF GP=2 THEN PRINT "GERMAN" § 
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1 41 

1 420 

1 430 

1 440 
* * * « 

1 450 

1 460 

1 470 

1 480 

1 490 
1500 

1 51 

1 520 

1 530 

1 540 

, 25 

1 550 
1 560 

1 570 
1 580 
50 

1 590 
1600 

1 61 
1620 
1630 
1 640 
1650 
1 660 
1670 
1680 
1 690 
1700 
1710 
1 720 
1 730 
1 740 
1 750 
1760 
1 770 
1780 



IF GP=3 THEN PRINT "ITALIAN" p 
IF GP=4 THEN PRINT "MONACO"? 
PRINT " RACE" 

PRINT ***************************** 
* * # * # ii 

PRINTgPRINT "OVER HOW MANY LAPS?" 

INPUT LAPsIF LAP<1 THEN 1460 

LAP=INT{LAP+.5] §L2AP=LAP 

REM a*********************** 

REM BRITISH DATA 

SPEED=1 40 

FOR X=1 TO 9 

READ D[X)gREM DISTANCE BETWEEN 

CORNERS 
NEXT X 

DATA 800,400,250,200,250,300,100,10 
I 

FOR X=1 TO 9 
READ C{X]iREM RECOMMENDED 

MAXIMUM CORNERING SPEED 
NEXT X 
DATA 150, 90 8 175,200 s 200,90, 90, 150,1 

FOR X=1 TO 9 

READ A{X] sREM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 
NEXT X 

DATA 8,4,2,2,2,2,1 ,1 ,2 
APP=800sWW=10sQQ=24§RR=2650 
IF GP=1 THEN RETURN 
REM ************************ 
REM GERMAN DATA 
SPEED=85 
FOR X=1 TO 7 
READ D (X) 
NEXT X 

DATA 600,200,100,150,250,200,200 
FOR X=1 TO 7 
READ C [X] 
NEXT X 

DATA 90,175,120,90,200,200,175 
FOR X=1 TO 7 
READ A{X) 
NEXT X 
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1 790 
1 800 
1 81 
1 820 
1 830 
1 840 
1 850 
1 860 
1 870 
1 880 
1890 
1 900 
1 91 
1 920 
1 930 
1 940 
1 950 
1 960 
1 970 
1 980 
1 990 
2000 
201 
2020 
2030 
2040 
2050 
, 20 
2060 
2070 
2080 
2090 
2100 
,175 
21 1 
2120 
2130 
21 40 
2150 
2160 
2170 
2180 
2190 
2200 



DATA 6 
APP=60 
IF GP = 
REM ** 
REM IT 
SPEED= 
FOR X = 
READ D 
NEXT X 
DATA 8 
FOR X = 
READ C 
NEXT X 
DATA 1 
FOR X = 
READ A 
NEXT X 
DATA 8 
APP=80 
IF GP = 
REM ** 
REM MO 
SPEED= 
FOR X = 
READ D 
NEXT 
DATA 

0,200 
DATA 1 
FOR X = 
READ C 
NEXT 
DATA 

,150 
DATA 1 
FOR X = 
READ A 
NEXT X 
DATA 4 
DATA 1 
APP=40 
RETURN 
REM ** 
REM IN 



f C. , 1 ,C,C,C,2 

g WW = 8 : QQ = 1 7 | RR = 1 700 

2 THEN RETURN 

ALIAN DATA 

1 08 

1 TO 7 
[X] 

00,300,100,150,300,350,200 

1 TO 7 

(X) 

20,90,90,150,200,120,150 

1 TO 7 

tX) 

,3,2,1 ,3,3,2 
0sWW=BsQQ=22sRR=2200 

3 THEN RETURN 

NACO DATA 

162.5 

1 TO 1 4 

(XJ 
X 
400,100,100,300,400,300,150,20 



50,150,200,250 

1 TO 1 4 

(X) 



X 

175,150,17 5,200,120,200,175,90 

50,175,120,150 

1 TO 1 4 

[X) 

,1 ,1 ,3,4,3,1 ,2,2,2 

, 2 , c. , c 

OsWW = 1 5 i QQ=30 i RR = 31 00 

$$$#$$$$$$$#$#«#$$$$$$$ 
ITIALIZATI ON 
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2210 CLS 

2220 RANDOMIZE V A L ( R I G H T $ [ T I M E $ , 2 ] ] 

2230 DIM A(14) f C(14),D(14] 

2240 C=1;FP=6:PNT=0lNC=0:CP=0 

2250 AM = s RP = ; APP = 

2260 NUM=OsREM NUMBER OF MOVES 

2270 ENG=100sBRAK=10lTRAV=0gDIST=0 

2280 EFLAG=0 

2290 X=0 

2300 RETURN 

2310 REM **#********#*********#*#* 

2320 REM DELAY 

2330 FOR 0=1 TO 1000sNEXT 

2340 RETURN 
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Up, Up 
and Away 



Flight simulators are probably the most entertaining type of simu- 
lation programs. Most of us will never learn to fly, but would some- 
how like to enjoy the experience. A flight simulation program gives 
you a chance to find out a little of how it feels to fly without ever leav- 
ing the ground. 

The main challenge facing a bilot is to keep on top of a number 
of different elements that are changing all at once. Ignore any one of 
them — like the angle at which the plane is flying, or the amount of 
fuel you have left — for too long, and your plane may well drop out of 
the sky. Although this program does not occur in real time, so you'll 
have a chance to think about the choices facing you before you act, 
you'll still find it a fairly challenging and frustrating simulation to 
master. 

Even getting the plane off the ground is not particularly easy the 
first few times you run the program. Get it in the air, and you'll have 
to fight every second to keep it there. 

And once you try to land . . . 

Crashing during a landing attempt is a trifle inconvenient in a 
real plane. The moment you try and land 150 feet above the ground, 
you'll give thanks that you are only flying your computer. 

Mastering the Centrals 

This simulation is the most complex in the book. It will take you 
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a little longer to learn than the others. This longer learning time will, 
however, be amply repaid as you're sure to find this program by far 
the most satisfying to run. FLIGHT SIMULATION contains another 
bonus that makes it very worthwhile to run. Your flight is automati- 
cally recorded, so that at any moment, while you're still in the air, you 
can tell the computer you want to see the whole of the current flight 
over from the beginning. It is very entertaining to watch your flight 
quickly unfolding again. The controls are handed back to you once 
you reach the point in the original flight where you asked the com- 
puter for a replay. 

Think of the flight as having three parts, each of which requires 
a different approach to the controls. Part one is the takeoff, part two 
is the actual flight, and part three is the landing. You'll become an ace 
pilot fairly quickly if you concentrate on mastering each flight sec- 
tion in turn. 

Whatever you do, don't give up, even after your twentieth at- 
tempt at landing has ended in disaster. The satisfaction you'll feel 
when you make your first perfect landing will more than compensate 
for all the frustration you've encountered in the learning process. 

This is what you'll see when you first run the program: 



HORIZON 



*»»*«»$««#*#«« 



HEADING 

. N „ 
. . « . . 

. . : 

W--X--E 

. . ! . . 

. s . 



RANGE s TIME .1 ; 226 



AIRSPEED ; 

> 

ALTIMETER! 

> 

FUEL : 750 



D EG 



ELEVATI ON : s 

> UNDERCARRIAGE DOWN < : 



The line of asterisks in the top left corner shows the horizon 
line. This can tilt rather alarmingly from side to side as you turn the 
plane, or go to the bottom of the "windshield" as you climb, or to the 
top as you descend. It may take a short while in order for you to be 
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able to see this line as the horizon, but once you do, you'll find it con- 
veys a much better impression of being in the air than you might 
imagine. 

To the right of the horizon is your compass. The "@" shows the 
direction your plane is heading. You always start a flight facing due 
north, and must take off more or less in this direction. Your exact 
heading is shown further down the instrument cluster, on the same 
line as ALTIMETER, where you'll see "0 DEG.". 

The line of readings underneath the horizon and compass 
shows the distance you've covered so far (the "range"), the elapsed 
time of the flight, and the direction in which you must be flying in 
order to land — assuming that you get this baby up in the air, and keep 
it there for more than a few seconds ! You need to be within 12 degrees 
of this heading for a successful landing. The required heading 
changes from run to run, but does not change during a flight 

Shown underneath this is your airspeed, height above the 
ground (altimeter), and remaining fuel. The line of dashes ending in 
a "greater than" sign ( — >) indicates the magnitude of each of these 
readings. That is, the line gets longer as you go faster or climb higher. 

The elevation is the angle of your plane relative to the ground. 
When you enter a command, by touching a single key, a full-word ver- 
sion of the command appears in the position currently occupied by 
the series of dashes you can see after the elevation angle in the sam- 
ple run above. Finally, you are told whether or not your undercarriage 
is down. 

After a few inputs, the screen looks like this: 



HORIZON 



RANGE 



HEAD I NG 



. N . 



W--X--E 



o . : . . 



TIME 1.3 s 226 



AIRSPEED s 30 

- > 

ALTIMETER: 

> 

FUEL s 692 



DEG. 



ELEVATIONS 20 s NOSE UP 

> UNDERCARRIAGE DOWN < : 
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Your fuel has gone down slightly, your airspeed is up to 30, and 

the nose of the plane is pointed 20 degrees into the air. You can see, 
from the line down near the bottom right-hand corner of the screen, 
that NOSE UP is the full equivalent of the most recent command you 
entered. 

A little later, and we are in the air: 



HORIZON 



HEAD I NG 
. N . 



(>(iM04$MMiliM 



W--X--E 



. s 



RANGE 1 § TIME 2 % 226 

AIRSPEED s 51 

--> 

ALTIM ETER i 66 359 D EG 

-- > 

FUEL :66 



ELEVATION: 19 ; THROTTLE ON 
> UNDERCARRIAGE DOWN < : 



You need an airspeed of between 45 and 60, and an elevation 
greater than 10, in order to get off the ground. Let's try turning: 



HORIZON 



HEAD ING 

s . N . 
• . • : . . 

s W--X--E 

: . S „ 



$ $ $ l& 

® J-I Jgl $ 



RANGE 1.2 • TIME 2.3 ': 226 



AIRSPEED s 40 
__ > 

ALTIMETER: 143 

FUEL : 648 



344 D EG 



ELEVATI ON : 15 : BANK LEFT 
> UNDERCARRIAGE UP < 
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Note that the undercarriage is now up (which saves on fuel by 
decreasing drag on the plane) and the "horizon" is now sloping to 
down to the right, as the plane banks left It is now heading at 344 
degrees, and the @ symbol on the compass has moved to show the 
approximate direction in which the plane is flying. 



HORIZON 



HEADING 




AIRSPEED : 
-- > 

ALTIMETER s 353 

> 

FUEL s 590 



ELEVATI ON s 7 ! BANK RI GHT 
> UNDERCARRIAGE UP < 



In this "snapshot," taken a few moments later, we have started 
to bank to the right Our airspeed is up to 59, and we've continued to 
climb. However, the elevation has fallen, so the rate of climb will de- 
crease. As we level off, the horizon gradually tilts back to the hori- 
zontal: 



HORIZON 



HEADING 



. N . 
. . : ® . 



w _ _ X _ .. E 



@ $ $ 



RANGE 3.6 : TIME 5.3 : 226 



AIRSPEED : 76 

> 

ALTIMETER: 475 15 D EG 

> ' 

FUEL : 5 2 5 

— : > 



ELEVATION! 12 : THROTTLE ON 
> UNDERCARRIAGE UP < 
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As I said, there are an awful lot of things to keep track of. While 
concentrating on the direction in which I'm flying, I've been neglect- 
ing the plane's elevation— which has been slowly falling: 



HORIZON 



$ $ $ g 



HEADING 



. N . 

. : e . 



W--X--E 



. S . 



RANGE 7.4 ; TIME 6.9 : 226 



AIRSPEED : 152 

> 

ALTIMETER: 593 31 DEG 

> 

FUEL : 457 



ELEVATION: : THROTTLE ON 
> UNDERCARRIAGE UP < 



Suddenly I notice the nose is pointing downward — note how the 
horizon is now right at the top. I frantically try to climb: 



HORIZON 



HEAD I NG 



. $ $ $ $ $ « 

. * * 9 * 



: . N 



. w__x--E 



.S 



RANGE 11.3 : TIME 8.1 : 226 



AIRSPEED : 245 

> 

ALTIMETER: 250 47 DEG. 

> 

FUEL : 403 

_, > 



E LEVATI ON: -11 : CLIMB 

> UNDERCARRIAGE UP < 
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However, too much is happening at once, with the inevitable re- 



sult: 



CRASH I 
CRASH I 
CRASH ! 
CRASH ! 
CRASH I 
CRASH ! 
CRASH 



CRASH I 
CRASH I 
CRASH I 
CRASH ! 
CRASH I 
CRASH ! 



CRASH I 
CRASH I 

CRASH I 
CRASH I 
CRASH I 
CRASH ! 



The final picture is pretty bleak: 



HORI ZON 

C R * * A * •- S * 

* A * * S * H* 

r * * ^ * * s * H 

g«e A ** s * h 

A * * s * H * | 

* * A * * S * H * 

* * C R * * A •• 



HEAD I NG 



. N 



W __X-©E 



. S . 



RANGE 14.1 : TIME 9.2 ; 22l 



AIRSPEED s 273 

> 

ALTIMETER : 

> 

FUEL : 366 



84 D EG 



ELEVATI0N:-1 6 : THROTTLE ON 
> UNDERCARRIAGE UP < 
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The commands you have at your disposal are: 

R This allows you to repeat the current flight from the beginning up 

to that point 
Space bar This is used for "throttle on," and increases your speed. 

Use this to throttle back. 
Q To increase elevation. 
A To decrease elevation. 
Z To turn left 
M To turn right 
1 To change undercarriage from up to down, or from down to up. 

Remember, to take off your speed must be between 45 and 60, 
and your elevation must be greater than 10. To land, your undercar- 
riage must be down ( !), your heading must be within 12 degrees of the 
setting shown beneath the compass, you must be at 15 or below on 
your altimeter, and your speed must not be greater than 20. You'll 
find that, as in real life, landing is even harder than taking off. 

The complete FLIGHT SIMULATION listing is given in the next 
chapter. 
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The 

FLIGHT SIMULATION 

Listing 

Now it's time to earn your wings with this listing: 



1 
20 
30 
40 



SIMULATION 



REM FLIGHT 
RPT = 

LD=INT[ RND [ 1 J *360 ] 

DIM E$ [ 1 000 ] S REM THIS HOLDS FLIGHT 

RECORD 
50 DIM A$ (7 } ,C$ [7 } l REM THESE ARRAYS 

HOLD HORIZON AND COMPASS OUTPUT 
60 REM ************************** 
70 GOSUB 2320§REM INITIALIZE 

80 IF CRASH=0 THEN GOSUB 820gREM HORIZON 

/COMPASS 



90 GOSUB 500lREM PRINTOUT 

100 IF C R A S H = 1 THEN END 

110 IF LAND=1 AND UFLAG=1 THEN PRINT 

LL D0NE B A PERFECT LANDING! I "sEND 

120 IF LAND=1 AND UFLAG=0 THEN PRINT 

UR WHEELS ARE UP"sG0SUB 17B0lG0T0 90 

130 T=AIRSPEEDgSTALL=0 

162 



WE 



YO 



1 40 X$=INKEY$ 

150 IF X $ = » R » THEN RPT=1;G0T0 70 

160 IF RPT=1 AND E$(CL0CK+1)=»» THEN RPT 

= i GOTO 140 

170 IF RPT = 1 THEN X $ = E $ { C L C K + 1 ] 

180 IF X $ = " " THEN 140 

190 IF CL0CK<999 THEN E $ [ C L C K + 1 J =X $ 

200 IF TAKE0V = 1 THEN E L E V AT E = I NT ( E L E V AT E 

+ RND [1 J ®2-RND (1 ] *3 3 

210 IF AIRSPEEDO THEN 290 

220 IF X$=»Q» THEN E L E V A T E = E L E V A T E + 5 i E F L 

AG=5iIF ELEVATE>60 THEN STALL=i 

230 IF X$="A» THEN ELEVATE=ELEVATE-5|EFL 

AG=-5iIF ELEVATE<-70 THEN STALL=-1 

240 IF STALLO0 THEN G0SUB 1640 

250 IF ALTIMETER<1 THEN 290gREM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 IF X$=»Z» THEN W A = W A - . 5 i A N G = A N G - 6 i I F 

WA<-3 THEN WA = -3 
270 IF X$=»M» THEN W A = W A + . 5 l A N G = A N G + 6 : I F 

WA>3 THEN WA=3 
280 ANG = INT{ANG + RND[1 J *2-RND [1 ) *2 J 
290 IF X$ = » « THEN AIRSPEED=AI.RSPEED+8.5 

300 IF X$ = " a " THEN A I R S P E E D = A I R S P E E D -7 

310 AIRSPEED=AIRSPEED-ELEVATE/5 

320 IF UFLAG = 1 THEN A I R S P E ED = A I R S P E ED -1 . 

5 s FUEL = FUEL- B 5 

330 IF AIRSPEED<0 THEN AIRSPEED=0 

340 IF AIRSPEED>400 THEN AIRSPEED=400 

350 IF X$=»1" AND UFLAG=0 THEN UFLAG=1sG 

0T0 370 

360 IF X$=»1" AND UFLAG=1 THEN UFLAG=0 

370 FUEL=FUEL-[ABS[T-AIRSPEED)/10)-3 8 75 

380 IF FUEK1 THEN G0SUB 1780 

390 IF TAKE0V=1 THEN 420 

400 IF ELEVATE>10 AND AIRSPEED>45 AND AI 

RSPEED<60 AND UFLAG=1 THEN TAKE0V=1 

410 IF TAKE0V=0 THEN A LT I M E T E R = l G 0T 45 



420 IF LAND=0 AND AIRSPEED<30 THEN ELEVA 

TE=ELEVATE-5gALTIMETER=9*ALTIMETER/10 

430 ALTIMETER=ALTIMETER+INT[((ELEVATE+ a 1 

)*AIRSPEED]+EFLAG*AIRSPEED/1 000 J/80 
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440 IF ALTIMETERO00 AND TAKE0V = 1 THEN A 
LTIMETER=ALTIMETER+AIRSPEED/30+ELEVATE 

450 IF ALTIMETER<0 THEN GOSUB 1780gREM 
CRASH 
REM CHANGE NEXT TWO LINES TO MAKE IT 

EASIER (OR EVEN HARDER} TO LAND 
IF ALTIMETER>15 AND AIRSPEED>20 OR T 
AKEOV=0 THEN 80 

480 IF ABS ( ANG-LD ] <1 3 OR A B S [ A N G + 3 6 - LD ] 
THEN LAND=1 i GOTO 80 

REM PRINTOUT 

CLS 

PRINT " HORIZON "iTAB(20]p" HEADING" 



460 



470 



<1 3 
490 
500 
51 
520 



530 EV=INT( ELEVATE/1 J 
540 IF EV>2 THEN EV=2 
550 IF EV<-2 THEN EV=-2 
560 IF EVOO AND TAKEOV 
EN GOSUB 1 S2Q 
570 PRINT »i» ■ 



1 AND CRASH=0 TH 



580 FOR J=1 TO 7 

5 9 PRINT "i " | A $ [ J ) | " j";C$[J]j" i" 

6 A $ [ J J = " " 
610 NEXT J 

620 PRINT "g ■ -:" 

630 DIST=DIST+ABS( [COS (ELEVATE} J^AIRSPEE 

D J/360 

640 CL0CK=CL0CK+1 

650 PRINT "sRANGE" INT(DIST*10]/10"i TIME 

»INT(CL0CK}/10^"i"LD 

660 PRINT ":--■ ■ ■ -8" 

670 PRINT "^AIRSPEED :»INT(AIRSPEED} 
680 PRINT »g";LEFT$(Q$ f INT(AIRSPEED/20}} 
| » > " 

690 PRINT » i ALTIMETER i "INT( ALTIMETER} 1 
700 IF ANG<0 THEN PRINT TAB(19Jl360+ANG» 
DEG a " 

710 IF ANG>=0 THEN PRINT TAB(19}|ANG"DEG 
it 

720 MR=INT( ALTIMETER/30} l IF MR>20 THEN M 
R = 20 
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730 PRINT "g"iLEFT$[Q$,MR)|»>" 

740 PRINT "sFUEL g"INT{FUEL] 

750 PRINT " §»sLEFT$[Q$ p 20-INT(FUEL/75Qj) 

1 « > » 

760 PRINT "i :» 

770 PRINT "iELEVATIONi" ELEVATE" s "pgGOSU 

B 221 gPRINT U$ 

780 IF UFLAG = 1 THEN PRINT " g « | T A B [ 5 ] | " > 

UNDERCARRIAGE DOWN < i" 

790 IF UFLAG=0 THEN PRINT » i " § T AB [ 6 ] § " > 

UNDERCARRIAGE UP < l" 

800 RETURN 

810 REM ************************** 

820 REM ASSIGN H R I Z N/ C M P A S S 

830 IF ABS[ INT[ WA+ 8 5 ) ) =3 THEN GOSUB 980 

840 IF ABS( INT( WA+.5 ) J =2 THEN GOSUB 1070 

850 IF ABS[ INTt WA+ 8 5 J J =1 THEN GOSUB 1160 



860 IF INT(WA+ B 5)=0 THEN GOSUB 1250 
870 REM NEXT TWO LINES USED TO 

GRADUALLY STRAIGHTEN UP WINGS 
880 IF WA>0 THEN WA=WA- a 2 

IF WA<0 THEN WA=WA+ B 2 

IF WA> a 2 THEN 1 350 

FOR Z=1 TO 7 

M$ (8-ZJ =A$[ ZJ 

NEXT Z 

FOR Z=1 TO 7 

A$(ZJ=M$[ZJ 



890 
900 
91 
920 
930 
940 
950 
960 
970 
980 
990 
1 000 
1 01 
1 020 
1 030 
1 040 
1 050 
1 060 
1 070 
1 080 



NEXT Z 

GOTO 13 50 

REM WA=3 OR -3 

A$(1 )=« 

A $ [ 2 J = " 

A $ ( 3 J = » 

A $ { 4 J = " 

A$(5l=« 

A $ [ 6 J = " 

A $ [ 7 3 = " * * 

RETURN 

REM WA=2 OR -2 

A $ [ 1 J = » 



* 
* * 



* * 



* * 



* * 
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1 090 
1 1 00 
1110 
1 1 20 
1130 
1 1 40 
1 1 50 
1160 
1170 
1180 
1190 
1 200 
1 21 
1 220 
1 230 
1 240 
1 250 
1 260 
1 270 
1 280 
1 290 
1 300 
1 31 
1320 
1 330 
13 40 
1 350 
1 360 
1 370 
1 380 
1390 
1400 
1 41 
1 45 
1 420 
1 450 
1 430 
1 450 
1 440 
1 450 

14 

1 460 
1 48 

1 470 



* « # 



$ * « 



OR -1 



«#«»«* 



A $ [ 2 ) = " 

A $ [ 3 J = " 

A $ [ 4 J = " 

A $ [ 5 ) = " * * * 

A$(6]="*** 

A $ [ 7 ] = " 

RETURN 

REM WA=1 

A $ [ 1 J = » 

A $ [ 2 ) = " 

A $ [ 3 ] = " 

A $ ( 4 J = " 

A$(5]=»**** 

A $ [ 6 ] = " 

A $ [ 7 ) = " 

RETURN 

REM WA=0 

A $ [ 1 ) = " 

A $ ( 2 J = " 

A $ ( 3 ) = " 

A$(4)=" *********** 

A $ [ 5 ] = " 

A $ [ 6 ) = " 

A $ [ 7 ) = » 

RETURN 

REM #««$**$«*«**«*: 

REM ASSIGN COMPASS 
F2=ANG-F1 

IF F2<0 THEN F A = I N T [ { F 2 + 3 7 5 J / 3 J 
IF F2> = THEN F A = I NT [ ( F 2 + 1 5 ) / 3 ] 
FA = 



STRINGS 



IF FA=12 
C $ [ 1 ) = " 
IF FA=11 



THEN 

B N B 

THEN 



C$[2)= 



IF FA=0 THEN C$(2] 



01 



@„ 



» i GOTO 



" g GOTO 



IF FA=1 THEN C$[2)=" OB !@„ "iGOTO 



C $ ( 2 ] = " » 

IF FA=1 THEN C$ [3 ) 
80 

IF FA = 2 THEN C$ [ 3} = 


C $ ( 3 } = » . : 



B @ g BB »gG0T 
. g @ 8 " gGOTO 
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1 480 
1 51 
1 490 
1 51 
1 500 
1 51 
1 540 
1 520 
1 540 
1 530 
1 540 
1 580 
1 550 
1 580 
1560 
1 580 
1 570 
1 580 
1 590 
1600 
1 61 
1 620 
1 630 
1 640 
1650 
1660 
1670 
1 680 
1 690 
1 700 
1 71 
1 720 
1 730 
1 740 
1 750 
1760 
1 770 
1780 
1790 
1 800 
1 81 

1 820 
1 830 



IF FA=9 THEN C$(4]=" W @-X -- E " s G 0T 
IF FA=3 THEN C$(4)=" W--X-@E» j GOTO 

C$[4]=» W--X--E" 

IF FA=8 THEN C$[5)=" „@ i .."sGOTO 

IF FA=4 THEN C$(5j=" B „ s i,»:GOTO 

C $ [ 5 ) = » „ a : 

IF FA=7 THEN C$[6)=" .Is,. "sGOTO 

IF FA = 6 THEN C $ [ 6 ] = " . . « . . "iGOTO 

IF FA=5 THEN C $ [ 6 ) = " oa l@ 8 "iGOTO 

C $ ( 6 } = » . . : . . » 

C $ [ 7 ] = " ,S, » 

IF ANG>360 THEN ANG=ANG-360 

F2=ANG 

IF W>0 THEN W=W- a 4 

IF W<0 THEN W=W+„4 

RETURN 

REM STALL/FALL 

IF STALL=-1 THEN 1710 

FOR J=1 TO 10 

PRINT TAB[J}i"YOU HAVE STALLED!" 

NEXT J 

AIRSPEED=AIRSPEED/4 

RETURN 

FOR J=1 TO 10 

PRINT TAB{J}g" UNCONTROLLED DIVE!!" 

PRINT TAB{21-J)|" PULL UPI!" 

NEXT J 

ALT I METER = 4*= ALT I METER/ 5 

RETURN 

REM ************************** 

REM CRASH 

CRASH=1 

ALTIMETER=0 

M$=»** *C R** A ** S* H* M*»iREM 

25 CHARACTERS LONG 

FOR J=1 TO 20 

PRINT TAB[J)|" CRASH!" 
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1 840 
1 850 
1860 
1 870 
1 880 
1 890 
1900 
1 91 
1 920 
1 930 
1 940 
1 40 
1 950 
1 960 
1 970 
1 980 
1 990 
2000 
201 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
211 
21 20 
21 30 
21 40 
21 50 
2160 
2170 
2180 
21 90 
2200 
221 
2220 
2230 
2240 
2250 
CLIM 



PRINT TAB[21-J)i" CRASH!" 

NEXT J 

FOR J=1 TO 7 

G = INT( RND [1 J *1 1 J +1 

A$ [ J J =MID$ (M$ , G *1 4) 

NEXT J 

RETURN 

REM #$*«$*****#»*««##**««*«««» 

REM ADJUST HORIZON 

G$=" "sREH 14 SPACES 

ON EV + 3 GOSUB 1 9 6 , 2 2 , 2 7 , 2 8 , 2 

RETURN 

REM EV=-2 

FOR J=1 TO 4 

A$( J] =A$ [ J + 3 ] 

NEXT J 

A$[5]=G$gA$(6j=G$gA$(7)=G$ 

RETURN 

REM EV=-1 

FOR J=1 TO 6 

A$ (J) =A$ [ J+1 ] 

NEXT J 

A$ ( 7 ) =G$ 

RETURNgREM EV=0 

REM EV=1 

FOR J=6 TO 1 STEP -1 

A$ ( J + 1 ) =A$ ( J J 

NEXT J 

A$ [1 )=G$ 

RETURN 

REM EV=2 

FOR J=4 TO 1 STEP -1 

A$ ( J + 3 ) =A$ { J ) 

NEXT J 

A $ [ 1 ]=G$iA$[2]=G$sA$(3)=G$ 

RETURN 

REM ft************************* 

REM INPUT INTO COMMAND NAME 

U$ = " " 

IF X$=» " THEN U$=" THROTTLE ON" 
IF X$=" B " THEN U$=" THROTTLE OFF" 
IF X$="Q» AND ALTIMETER>0 THEN U$=" 
B" 
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2260 
NOSE 
2270 
2280 
2290 
2300 
231 
2320 
2330 
2340 
2350 

21 
2360 

2370 
2380 
2390 
2400 



AND ALTIMETER=0 THEN U$ = " 



THEN 
THEN 
THEN 



U$="NOSE 
U$="BANK 
U$="BANK 



DOWN" 
LEFT" 
RIGHT" 



IF X$=»Q 

UP" 

IF X$="A 

IF X$="Z 

IF X $ = " M ' 

RETURN 

REM ************************** 

REM INITIALIZATION 

CLS 

RANDOMIZE V A L [ R I G H T $ [ T I M E $ , 2 ] J 

q$ = « "-REM 

CHARACTERS IN STRING 
UFLAG=1sREM UNDERCARRIAGE - 
1 - DOWN, - UP 
EFLAG=OsREM CLIMB RATE 
ANG=OsTAKEOV=OsLAND=0 
AIRSPEED=0 
DIST=OsREM DISTANCE COVERED 'RANGE' 



2410 ALTIMETER=0 

2420 ELEVATE=0 : REM ANGLE OF ELEVATION 

2430 WA=QsREM 'WING ANGLE? USED IN 

HORIZON PRINTOUT 
2440 FUEL=750sCRASH=0sF2=0sF1=0sREM 

FOR DIRECTION C H A N G E/ C OM P A S S ROUTINE 
2450 CLOCK=OsREM TIME 
2460 X$="» 
2470 RETURN 
2480 REM ALL TAKE-OFFS ARE INTO THE 

NORTH {SPEED 45-60? ELEVATION >10j 
2490 REM LANDING DIRECTION SHOWN 

BELOW COMPASS 
2500 REM YOU MUST BE WITHIN 12 DEGREES 
OF THIS FOR A SUCCESSFUL LANDING 
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Appendix 



SPECIAL INSTRUCTIONS FOR COMMODORE PROGRAM- 
MERS: You'll note that many of the PRINT statements in the Com- 
modore 64 listings begin with three-letter codes within brackets, like 
this: [RED]. 

Do not type these in directly. These indicate the use of the Com- 
modore's number keys to control screen colors. (Note that each of 
the number keys also has a color marked on it.) 

For example, when you see [RED] in the listing, you should 
press the "CTRL" and the "RED" key— which is also the "3" key— at 
the same time. 



SPACE LANDING SIMULATION / Apple lie version 

10 REM SPACE LANDING SIMULATION I 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 8020 

30 REM ********************** 

40 REM STARTING VALUES 
50 FUEL = 200 + RND (1) * 40 
60 VELOCITY = RND (1) * 20 - 6 
70 HEIGHT = 500 - RND (1) * 10 
80 HOME 

90 PRINT " FUEL"; TAB( 12)" VELOCITY"; T 
AB( 24)" HEIGHT" 
100 REM ********************* 

110 REM MAJOR CYCLE 

120 GOSUB 430 

130 IF FUEL < = THEN FUEL = O-.THRUST 

= 0: GOTO 170 

140 GET A$ 

150 IF A$ < "0" OR A$ > "9" THEN 140 

152 P = INT (HEIGHT / 2 * 1.25) 

155 IF P < 1 THEN P = 1 

- 157 IF P > 255 THEN P = 255 

159 D = 150s GOSUB 8000 

160 THRUST = VAL (A$) + .1 
170 FUEL = FUEL - THRUST 
180 FLAG = THRUST - 2 

190 THRUST = 

200 HEIGHT = HEIGHT + VELOCITY + FLAG / 4 

210 VELOCITY = VELOCITY + FLAG 

220 IF HEIGHT < = 10 THEN 240 

230 IF HEIGHT > 10 THEN 120 

240 IF VELOCITY > - 9 AND VELOCITY < 5 

THEN 290 
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Apple He 

250 GOSUB 410 

260 GOSUB 5000: PRINT "YOU HAVE CRASHED 
INTO THE SURFACE.. . " 

270 IF HEIGHT > THEN HEIGHT = - HEIGH 
T 

280 GOTO 320 

290 GOSUB 5500; PRINT "YOU HAVE LANDED S 
AFELY!" 

300 FLASH i PRINT "YOUR SKILL RATING IS 
"; INT ( - 1000 * FUEL / (VELOC 
ITY - HEIGHT)) 

305 NORMAL 

310 HEIGHT = 

320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS WER 
Es" 

340 PRINT " FUEL"; TAB( 12)" VELOCITY"; 
TAB( 24)" HEIGHT" 

350 GOSUB 430 

360 GOSUB 410 

370 IF HEIGHT > = THEN END 

380 IF HEIGHT < THEN PRINT "NEW CRATE 
R ON MOON "; INT ( ABS (100 * ( 

HEIGHT + .2) / 3)) / 100;" METERS DEE 
P ! " 

390 PRINT "YOUR SKILL RATING IS "; INT ( 
100 * FUEL / (VELOCITY - HEIGHT 

)) 

400 END 

410 PRINT " 



T? 



415 GOSUB 5200 

420 RETURN 

430 PRINT INT (100 * FUEL) / 100; 

440 PRINT TAB( 12) - INT (100 * VELOCI 
TY) / 100; 

450 IF HEIGHT > = THEN PRINT TAB( 2 
4) INT (100 * HEIGHT) / 100 

460 IF HEIGHT < THEN PRINT 

470 RETURN 

5000 P = 250:D = 255 

5010 GOSUB 8000 

5020 RETURN 
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5200 P = 150-.D = 100 

5210 GOSUB 8000 

5220 RETURN 

5500 P = 5:D = 10 

5510 GOSUB 8000 

5520 P = P + 15 

5530 IF. P < 250 THEN GOTO 5510 

5540 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 

8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 

8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 

8050 RETURN 
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MONTE CARLO DEMONSTRATION / Apple lie version 



10 

15 

20 

30 

40 

50 

60 
INT 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 
ETURN 

320 
RETURN 

330 IF 
ETURN 

340 IF 
RETURN 

350 RETURN 



PRINT : PR 



REM MONTE CARLO DEMONSTRATION 
REM APPLE IIE/IIC VERSION 
GOSUB 370: REM INITIALISE 
REM ******************** 

REM MAJOR CYCLE 
GOSUB 100: REM PRINT 
IF P = EP AND Q = EQ THEN 
"DEMONSTRATION OVER": END 
GOSUB 230: REM GENERATE MOVE 
GOTO 50 
REM ******************** 

REM PRINTOUT 
A$(P,Q) = "0" 
M = M + 1 

VTAB 5 

PRINT "MOVE: 

FOR X = 1 TO 

FOR Y = 1 TO 

PRINT A$(X,Y) 

NEXT Y 

PRINT 

NEXT X 

RETURN 

REM ************* 

REM GENERATE MOVE 
A$(P,Q) = "." 
G = 
T = INT ( RND (1) * 4) + 1 

T GOSUB 310,320,330,340 

G = THEN 260 

G = 1 AND RND (1) > .5 THEN 260 



";M 

10 

10 
it 



it 



ON 

IF 

IF 

RETURN 

IF P > 1 THEN P=P-1:G=G+1:R 

IF P < 10 THEN P = P + 1:G = G + 1: 



Q > 
Q < 



1 THEN Q : 
10 THEN Q 



Q - 1:G 



G + 1: R 



= Q + 1:G = G + 1 
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360 " REM ********** 

370 REM INITIALISE 

380 HOME 

400 DIM A$(10,10) 

410 FOR X = 1 TO 10 

420 FOR Y = 1 TO 10 

430 A$(X,Y) = "." 

440 NEXT Y 

450 NEXT X 

460 PRINT : PRINT 

470 PRINT "ENTER FIRST START CO-ORDINATE 

(LESS THAN 10)" 

480 INPUT P 

490 IF P < 1 OR P > 10 THEN 480 x 

500 PRINT "ENTER SECOND START CO-ORDINAT 
E (LESS THAN 10)" 

510 INPUT Q 

520 IF Q < 1 OR Q > 10 THEN 510 

530 PRINT : PRINT 

540 PRINT "ENTER FIRST END CO-ORDINATE ( 
LESS THAN 10)" 

550 INPUT EP 

560 IF EP = P OR EP < 1 OR EP > 10 THEN 
550 

570 PRINT "ENTER SECOND END CO-ORDINATE 
(LESS THAN 10)" 

580 INPUT EQ 

590 IF EQ = Q OR EQ <1 OR EQ > 10 THEN 

580 

600 A$(P,Q) = "0" 

610 A$(EP,EQ) = "X" 

615 HOME 

620 RETURN 
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CELL CLASH SIMULATION / Apple lie yersion 

10 REM SIMULTANEOUS EQUATIONS 
12 REM APPLE IIE/IIC VERSION 
20 HOME 
30 GOSUB 8020 
40 HS = 
45 SD = RND (1) 
50 FD = RND (0) 

60 PRINT : PRINT "DECAY FACTOR IS ";FD 
70 GOSUB 550 
80 HOME 

90 PRINT : PRINT 

100 PRINT "ENTER NUMBER OF CELL X TO 
START (LESS THAN 40) 

110 INPUT CP: IF CP < 1 OR CP > 39 THEN 

110 

120 PRINT : PRINT 

130 PRINT "WE HAVE ";CP;" X CELLS" 

140 PRINT : PRINT 

150 PRINT "ENTER NUMBER OF CELL Y TO 

START (LESS THAN 40) 
»t 

160 INPUT EP: IF EP < 1 OR EP > 39 THEN 
160 

170 HOME : VTAB 5: PRINT "PLEASE STAND B 
y tt 

180 GOSUB 550: HOME 

190 DA = 1 

200 IF CP > EP / FD THEN CP = EP / FD 

210 PRINT " " 

220 PRINT "TIME ELAPSED: ";DA 

230 PRINT INT (CP);" CELL X" 

240 PRINT INT (EP);" CELL Y" 

250 REM ********************* 

260 REM MAJOR CYCLE 

270 GOSUB 550 

280 DA = DA + 1 

290 PRINT " " 

300 PRINT "TIME ELAPSED: ";DA 

305 P = 100:D = 50: GOSUB 8000 
310. IF CP > EP / FD THEN CP = EP / FD 
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320 REM EQUATIONS FOLLOW; MODIFY PARTS 
OF THEM TO SEE WHAT HAPPENS 
330 CP = CP + ((8 * CP - CP * EP / 3) * F 

340 EP = EP + ((4 * EP - EP * CP) * .01) 

350 PRINT INT (CP);" CELL X" 

360 PRINT INT (EP);" CELL Y" 

370 IF EP < 2 OR CP < 2 THEN 410 

380 GOSUB 550 

390 GOTO 280 

400 REM ********************* 

410 IF DA > HS THEN HS = DA 

420 PRINT : PRINT 

430 PRINT "YOUR CELL CLASH SIMULATION SU 
RVIVED" 

440 PRINT "FOR ";DA;" TIME PERIODS" 

450 PRINT " 

1! 

460 PRINT "THE BEST SURVIVAL TIME SO FAR 

IS ";HS 

470 GOSUB 550 

480 PRINT " 



490 PRINT "DO YOU WANT A NEW RUN (Y OR N 
) ?" 

500 GET A$ 

510 IF A$ < > "Y" AND A$ < > "N" THEN 
500 

520 IF A$ = "Y" THEN HOME : GOTO 60 

530 PRINT "OK": PRINT : PRINT :P = 200:D 

= 250: GOSUB 8000: END 

540 REM ********************** 

550 FOR, J = 1 TO 2000: NEXT J 

560 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 

URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
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8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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LIFE / Apple lie version 



10 

15 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 
+ 1 

160 

170 
+ 1 

180 

190 

200 
+ 1 

210 

220 
+ 1 

230 

< > 
240 

,Y) = 
250 
260 
270 
280 
290 
300 
305 
310 
320 
330 



REM CONWAY'S LIFE SIMULATION 
REM APPLE IIE/IIC VERSION 
REM DEFINED INITIAL COLONY 
GOSUB 460: REM INITIALISE 
REM ********************* 

REM MAJOR CYCLE 

GE = GE + 1 

GOSUB 290: REM PRINTOUT 

GOSUB 110 REM EVOLVE 

GOTO 60 

******************** 

EVOLVE 



REM 
REM 
FOR 
FOR 
C = 
IF 

IF 

T T? 

IF 
IF 
IF 

IF 
IF 



X = 
Y = 



A$(X 

A$(X 
A$(X 



TO 
TO 



12 



- 1,Y - 1) = "X" THEN C = C 



1,Y) = "X" 
1,Y + 1) = 



A$(X,Y 
A$(X 9 Y 
A$(X + 



1) 
1) 

Y 



A$(X 
A$(X 



1,Y) 
l.Y 



"Y" 
" Y " 

- 1) = 

"Y" 
r 1) = 



THEN C = 
"X" THEN 

THEN C = 
THEN C = 
"X" THEN 

THEN C = 
"X" THEN 



C 
C 

C 
C 
C 

C 
C 



IF A$(X,Y) = "X" AND C < > 2 AND C 
3 THEN B$(X,Y) - " " 
IF A$(X,Y) = " " AND C = 3 THEN B$(X 

NEXT Y 
NEXT X 
RETURN 
REM ********************* 

REM PRINTOUT 
HOME 
PZ = 200:DZ = 150: GOSUB 8000 
PRINT 

PRINT TAB( 4)"GENERATI0N ";GE 
PRINT 
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340 FOR X = 2 TO 12 

350 FOR Y = 2 TO 12 

360 A$(X,Y) = B$(X,Y) 

370 PRINT A$(X,Y); 

380 NEXT Y 

390 FOR Y = 12 TO 2 STEP - 1 

400 PRINT A$(X,Y); 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM ******************** 

460 REM INITIALISATION 

470 HOME 

480 GOSUB 8020 

500 DIM A$(13,13),B$(13,13) 

510 VTAB 4: PRINT TAB( 11)"PLEASE STAND 

BY. . ." 

520 FOR X = 1 TO 13 

530 PRINT 14 - X;" " ; 

540 FOR Y = 1 TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A$(X,Y) = " " 

570 B$(X,Y) = " " 

580 NEXT Y 

590 NEXT X 

600 READ D: IF D = 99 THEN 630 

610 READ E:A$(D,E) = "X":B$(D,E) = "X" 

620 GOTO 600 

630 GE = 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 8,6,8,8,9,5,9,9 

700 DATA 99 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ : CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 

,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 

8030 POKE 774,198: POKE 775,11: POKE 776 

,240: POKE 777,8: POKE 778,202: 
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POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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ROBOT LOGO / Apple He version 



100 


REM 


ROBOT LOGO 


105 


REM 


APPLE IIE/IIC VERSION 


110 


GOSUB 1730: REM INITIALISE 


120 


GOTO 


490 


130 


REM 


%%#%%:% %%%%%% %%%%%%%%:%: 


140 


REM 




150 


REM 




160 


REM 




170 


REM 




180 


REM 




190 


REM 




200 


REM 




210 


REM 




220 


REM 




230 


REM 




240 


REM 




250 


REM 




260 


REM 




270 


REM 




280 


REM 




290 


REM 




300 


REM 




310 


REM 




320 


DATA 


"#» 


330 


REM 


*%:****%:%:$:%$:%*%%%:*%:%%:%%# 


340 


REM 


INT UX,AX 


350 


UX = 


INT (UX + .5):AX = INT (AX + . 


5) 






360 


RETURN 


370 


REM 


sjcs^c^csissic^ssfc^c^s^s^c^c^c^s^c^c^c^ssjcsjcsj-^j^s 


380 


REM 


PRINT OUT 


390 


HOME 




400 


PRINT 


"STEP ";PSN;" > ";A$(PSN): PRI 


NT 






410 


FOR J 


= 1 TO DE 


420 


FOR K 


= 1 TO BR 


430 


PRINT 


Z$(J,K); 


440 


NEXT 


K 


450 


PRINT 




460 


NEXT 


J 


470 


RETURN 
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480 REM *********************** 

490 REM READ PROGRAM 

500 COUNT = COUNT + 1 

510 READ A$(COUNT) 

520 IF A$(COUNT) = "*" THEN 550 

530 IF COUNT < 20 THEN 500 

540 REM *********************** 

550 REM EXECUTE PROGRAM 

560 PSN = 0: REM PRIGRAM STEP NUMBER 

570 PSN = PSN + 1 

580 IF PSN = 21 THEN 580: REM END 

590 FLAG = 

600 M$ = A$(PSN) 

610 IF M$ = "*" THEN 610: REM END 

620 N$ = LEFT$ (M$,2) 

630 IF N$ = "ST" THEN 560: REM START AG 

AIN 
640 IF N$ = "PR" THEN GOSUB 380: REM P 

RINTOUT 
650 IF N$ = "FO" THEN FLAG = 1 
660 IF N$ = "BA" THEN FLAG = 2 
670 IF N$ = "TU" THEN FLAG = 3 
680 IF N$ = "HO" THEN FLAG = 4 
690 IF N$ = "CL" THEN FLAG = 5 
700 IF N$ = "GO" THEN FLAG = 6 
710 IF N$ = "RA" THEN FLAG = 7 
720 IF N$ = "RE" THEN FLAG = 8 
730 IF N$ = "EN" THEN FLAG = 9 
740 IF N$ = "FA" THEN FLAG = 10 
750 ON FLAG GOSUB 780 , 940 , 1000 , 1 160 , 1220 

, 1260, 1400,1460, 1530, 1580 
760 GOTO 570 
770 REM ******************* 

780 REM FORWARD 
790 M$ = MID$ (M$,4) 

800 IF ASC (M$) = 87 THEN M$ = MID$ (M 
$ s 6) 
810 F$ = "F" 
820 NUM = VAL (M$) 
830 FOR E = 1 TO NUM 
840 IF UX < 1 OR UX > DE THEN 880 
850 IF AX < 1 OR AX > BR THEN 880 
860 Z$(UX,AX) = T$ 
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870 REM DELETE THE '*2' AT THE END OF T 
HE NEXT TWO LINES IF BETTER ON 
YOUR SYSTEM 

THEN UX 



880 IF F$ = "F" 
X + AC * 2 

890 IF F$ = "B" 
X - AC * 2 

900 GOSUB 340 

910 NEXT E 

920 RETURN 

930 REM 

940 REM 



UX + UP;AX = A 



THEN UX = UX - UP:AX 



950 M$ = 
960 IF 
$,3) 
970 F$ = 
980 
990 
1000 



BACK 
MID$ (M$,4) 
ASC (M$) = 75 THEN M$ = MID$ (M 



'B' 



GOTO 820 

REM ******************** 

REM TURN 

1010 M$ = MID$ (M$,4) 

1020 IF ASC (M$) = 78 THEN M$ = MID$ ( 
M$,3) 

1030 NUM = VAL (M$) 

1040 Y = INT ((NUM + 17.5) / 45) 

1050 IF Y = OR Y = 8 THEN RETURN 

1060 FOR J = 1 TO Y 

1070 IF UP = - 1 AND AC = THEN AC = 1 
: GOTO 1130 

1080 IF UP = AND AC = 1 THEN UP = 1 : G 
OTO 1130 

1090 IF UP = 1 AND AC = THEN AC = - 1 
: GOTO 1130 

1100 IF UP = 
- 1: GOTO 1130 

1120 IF UP = 
ND AC = - 1 THEN UP = 

1130 NEXT J 
RETURN 



AND AC = - 1 THEN UP = 
- 1 AND AC = 1 OR UP = 1 A 



1140 
1150 
1160 



REM ******************* 

REM HOME 

1170 AX = INT ((BR + .5) / 2) 

1180 UX = INT ((DE + .5) / 2) 

1190 UP = - 1:AC = 0: REM FACES UP 
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OR 


UX 


> 


DE 


THEN 


1380 


OR 


AC 


> 


BR 


THEN 


1380 


R$ 








/ 





1200 RETURN 

1210 REM ******************* 

1220 REM CLEAN 

1230 GOSUB 1870 

1240 RETURN 

1250 REM ******************* 

1260 REM GO X,Y 

1270 P = 

1280 P = P + 1 

1290 IF MID$ (M$,P,1) = "," THEN 1320 

1300 IF P < LEN (M$) THEN 1280 

1310 RETURN : REM ERROR 

1320 UX = VAL ( MID$ (M$,4,P - 1)) 

1330 AX = VAL ( RIGHT$ (M$, LEN (M$) - 

)) 
1340 GOSUB 340 

1350 IF UX < 1 
1360 IF AC < 1 
1370 Z$(UX 9 AX) ■■ 
1380 RETURN 

1390 REM ******************** 
1400 REM RANDOM 
1410 AX = INT ( RND (1) * BR) 
1420 UX = INT ( RND (1) * DE) 
1430 Z$(UX,AX) = R$ 
1440 RETURN 

1450 REM ******************** 
1460 REM REPEAT 
1470 M$ = MID$ (M$,4) 

1480 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,5) 
1490 RECOUNT = VAL (M$) 
1500 MARKER = PSN 
1510 RETURN 
1520 REM ******************** 

1530 REM END REPEAT 

1540 RECOUNT = RECOUNT - 1 

1550 IF RECOUNT > THEN PSN = MARKER 

1560 RETURN 

1570 REM ******************** 

1580 REM FACE 
1590 M$ = MID$ (M$,4) 
1600 ASC (M$) = 69 THEN M$ = MID$ (M$,3) 
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1610 NUM = VAL (M$) 

1620, Y = INT ((NUM + 17.5) / 45) * 45 

1630 IF Y = OR Y = 360 THEN UP = - 1: 

AC = 
1640 IF Y = 45 THEN UP = - 1:AC = 1 
1650 IF Y = 90 THEN UP = 0:AC = 1 
1660 IF Y = 135 THEN UP = 1:AC = 1 
1670 IF Y = 180 THEN UP - 1:AC - 
1680 IF Y = 225 THEN UP = 1:AC = - 1 
1690 IF Y = 270 THEN UP = 0:AC = - 1 
1700 IF Y = 315 THEN UP = - 1:AC = - 1 
1710 RETURN 

1720 REM #########*##♦##♦##### 
1730 REM INITIALISE 
1740 HOME 
1770 BR = 40 
1780 DE = 24 
1790 BR - BR - 1 
1800 DE = DE - 3 

1810 UP = - 1:AC = 0: REM STARTS FACING 
UP 

1820 DIM A$(20): REM FOR ROBOT PROGRAM 
1830 DIM Z$(DE,BR): REM DISPL 

AY 

1840 T$ = "X": REM PUT SYMBOL FOR ROBOT' 
S TRAIL HERE, CHANGE IF YOU WIS 
H 
1850 AX = 0:UX = 

1860 REM FILL ARRAY WITH SPACES 
1870 FOR J = 1 TO DE 
1880 FOR K = 1 TO BR 
1890 Z$(J,K) = " " 
1900 NEXT K 
1910 NEXT J 
1920 RETURN 
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100 REM POINT-DUTY ROBOT 

105 REM APPLE IIE/IIC VERSION 

106 REM EXAMPLES IN TEXT MAY HAVE TO BE 
MODIFIED TO PRODUCE REQUIRED R 

ESULTS 

110 GOSUB 1730: REM INITIALISE 

120 GOTO 490 

130 REM ********************* 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA "*" 

330 REM *********************** 

340 REM INT UX,AX 

350 UX = INT (UX + ,5):AX = INT (AX + . 

5) 

360 RETURN 

480 REM *********************** 

490 REM READ PROGRAM 

500 COUNT = COUNT + 1 

510 READ A$(COUNT) 

520 IF A$(COUNT) = "*" THEN 550 

530 IF COUNT < 20 THEN 500 

540 REM *********************** 

550 REM EXECUTE PROGRAM 

560 PSN = 0: REM PRIGRAM STEP NUMBER 
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570 PSN = PSN + 1 

580 IF PSN = 21 THEN 580? REM END 

590 FLAG = 

600 M$ = A$(PSN) 

610 IF M$ = "*" THEN 610: REM END 

620 N$ = LEFT$ (M$,2) 

630 IF N$ = "ST" THEN 560: REM START AG 



AIN 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 



IF N$ = "F0" THEN FLAG = 1 
IF N$ = "BA" THEN FLAG = 2 
IF N$ = "TU" THEN FLAG = 3 
IF N$ = "HO" THEN FLAG = 4 
IF N$ = "GO" THEN FLAG = 5 
IF N$ = "RA" THEN FLAG = 6 
IF N$ = "RE" THEN FLAG = 7 
IF N$ = "EN" THEN FLAG = 8 
IF N$ = "FA" THEN FLAG = 9 
ON FLAG GOSUB 780,940,1000,1160,1260 
,1400,1460,1530,1580 

760 GOTO 570 

770 REM ******************* 

780 REM FORWARD 
MID$ (M$,4) 
ASC (M$) = 87 THEN M$ = MID$ (M 



790 M$ : 
800 IF 



VAL (M$) 
FOR E = 1 TO NUM 
IF UX < 1 OR UX > DE THEN 880 
OR AX > BR THEN 880 



IF AX < 1 



HPLOT AX,UX 

IF F$ = "F" THEN UX 



$.6) 

810 F$ = "F" 

820 NUM = 

830 

840 

850 

860 

880 
X + AC 

890 IF F$ = "B" 
X - AC 

900 GOSUB 340 

910 NEXT E 

915 HC0L0R= FC 

920 RETURN 

930 REM ******************** 

940 REM BACK 

945 HC0L0R= BC 

950 M$ = MID$ (M$,4) 



= UX + UP:AX = A 



THEN UX = UX - UP? AX = A 
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960 IF ASC (M$) = 75 THEN M$ = MID$ (M 
$,3) 

970 F$ = "B" 

980 GOTO 820 

990 REM ******************** 

1000 REM TURN 

1010 M$ = MID$ (M$,4) 

1020 IF ASC (M$) = 78 THEN M$ = MID$ ( 
M$,3) 

1030 NUM = VAL (M$) 

1040 Y - INT ((NUM + 11.25) / 22.5) 

1050 IF Y = OR Y = 16 THEN RETURN 

1060 FOR J = 1 TO Y 

1065 IF UP = - 2 AND AC = OR UP = 2 A 
ND AC = 2 THEN AC = 1 : GOTO 113 


1070 IF UP = - 2 AND AC = 1 THEN AC = 2 
: GOTO 1130 

1075 IF UP = - 2 AND AC = 2 OR UP = A 
ND AC = - 2 THEN UP = - 1: GOTO 
1130 

1080 IF UP = - 1 AND AC = 2 OR UP = 1 A 
ND AC = - 2 THEN UP = 0: GOTO 
1130 

1085 IF UP = AND AC = 2 OR UP = 2 AND 
AC = - 2 THEN UP = 1: GOTO 113 


1090 IF UP - 1 AND AC = 2 THEN UP = 2: G 
OTO 1130 

1095 IF UP = 2 AND AC = 1 THEN AC = 0: G 
OTO 1130 

1100 IF UP = 2 AND AC = THEN AC = - 1 
: GOTO 1130 

1105 IF UP = 2 AND AC = - 1 THEN AC = 
— 2 • GOTO 1 130 

1110 IF UP = - 1 AND AC = - 2 THEN UP 
= - 2% GOTO 1130 

1115 IF UP = - 2 AND AC = - 2 THEN AC 
= - 1: GOTO 1130 

1120 IF UP = - 2 AND AC = - 1 THEN AC 
= 

1130 NEXT J 

1140 RETURN 
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1150 REM ******************* 

1160 REM HOME 

1170 AX = INT ((BR + .5) / 2) 

1180 UX = INT ((DE + .5) / 2) 

1190 UP = - 2;AC = 0: REM FACES UP 

1200 RETURN 

1210 REM ******************* 

1220 REM CLEAN 

1230 GOSUB 1870 

1240 RETURN 

1250 REM ******************* 

1260 REM GO X 9 Y 

1270 P = 

1280 P = P + 1 

1290 IF MID$ (M$,P,1) = V THEN 1320 

1300' IF P < LEN (M$) THEN 1280 

1310 RETURN : REM ERROR 

1320 UX = VAL ( MID$ (M$,4,P - 1)) 

1330 AX = VAL ( RIGHT$ (M$, LEN (M$) - P 

1340 GOSUB 340 

1350 IF UX < 1 OR UX > DE THEN 1380 
1360 IF AC < 1 OR AC > BR THEN 1380 
1370 HPLOT AX,UX 
1380 RETURN 

1390 REM ******************** 
1400 REM RANDOM 
1410 AX = INT ( RND (1) * BR) 
1420 UX = INT ( RND (1) * DE) 
1430 HPLOT AX,UX 
1440 RETURN 

1450 REM ******************** 
1460 REM REPEAT 
1470 M$ = MID$ (M$,4) 

1480 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,5) 

1490 RECOUNT = VAL (M$) 

1500 MARKER = PSN 

1510 RETURN 

1520 REM ******************** 

1530 REM END REPEAT 

1540 RECOUNT = RECOUNT - 1 

1550 IF RECOUNT > THEN PSN = MARKER 
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1560 RETURN 

1570 REM ******************** 
1580 REM FACE 

1590 M$ = MID$ (M$,4) 

1600 IF ASC (M$) = 69 THEN M$ = MID$ ( 
M$,3) 
1610 NUM = VAL (M$) 
1620 Y = INT ((NUM + 11.25) / 22.5) * 22 

.5 
1630 IF Y = OR Y = 360 THEN UP = - 2: 

AC = 

1635 IF Y = 22.5 THEN UP = - 2 : AC = 1 

1640 IF Y = 45 THEN UP = - 2:AC = 2 

1645 IF Y = 67.5 THEN UP = - 1:AC = 2 

1650 IF Y = 90 THEN UP = 0:AC = 2 

1655 IF Y = 112 THEN UP = 1:AC = 2 

1660 IF Y = 135 THEN UP = 2;AC = 2 

1665 IF Y = 157.5 THEN UP = 2:AC = 1 

1670 IF Y = 180 THEN UP = 2;AC = 

1675 IF Y = 202.5 THEN UP = 2:AC = - 1 

1680 IF Y = 225 THEN UP = 2;AC = - 2 

1685 IF Y = 247.5 THEN UP = 1:AC = - 2 

1690 IF Y = 270 THEN UP = 0:AC = - 2 

1695 IF Y = 292.5 THEN UP = - 1 : AC = - 
2 

1700 IF Y = 315 THEN UP = - 2:AC = - 2 

1705 IF Y = 337.5 THEN UP = - 2:AC = - 
1 

1710 RETURN 

1720 REM ********************* 

1730 REM INITIALISE 

1735 HGR sBC = 0:FC = 3 

1740 HOME 

1750 COLOR= 3 

1770 BR = 279 

1780 DE = 191 

1790 BR = BR - 1 

1800 DE = DE - 3 

1810 UP = - 2:AC = 0: REM STARTS FACIN 
G UP 

1820 DIM A$(20): REM FOR ROBOT PROGRAM 

1830 FOR XP = 1 TO 20s PRINT : NEXT XP 

1920 RETURN 
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10 REM CONNECT FOUR 
12 REM APPLE IIE/IIC VERSION 
15 REM A. W. PEARSON 
20 GOSUB 8020 
30 HOME 

40 VTAB 8: HTAB 14: PRINT "CONNECT FOUR" 
50 GOSUB 5000 
70 VTAB 12 

80 PRINT "ENTER YOUR MOVE AS A NUMBER BE 
TWEEN" 

90 PRINT "1 AND 8, ENTER FOR A NEW GAM 
E . . . " 
100 FOR F = 1 TO 1000: NEXT F 
110 DIM A$(10,10),B(10,2) 
120 FLAG = 

140 C$ = "*":H$ = "@": REM *=COMPUTER, @ 
-PLAYER 
150 FOR F = 1 TO 8 
160 B(F,1) = 6 
170 NEXT F 
180 FOR F = 1 TO 6 
190 FOR G = 1 TO 8 
200 A$(F,G) = "." 
210 NEXT G 
220 NEXT F 
230 REM #**#**###*#############:{«# 

REM ACCEPT HUMAN MOVE 

GOSUB 430 

PRINT : PRINT 

INPUT A 

IF A = THEN 

IF A < 
L = 

IF A$(L + 1,A) 



240 
250 
260 
270 
280 
290 
300 
310 
N 340 
320 L 
330 
340 
350 
360 
370 



"YOUR MOVE. 



RUN 



1 OR A > 8 THEN 270 



L + 1 

GOTO 310 

IF L = THEN 
A$(L,A) = H$ 
B(A,1) = B(A,1) 

GOSUB 430 



< > 



270 



OR L = 6 THE 
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380 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

410 REM ************************ 

420 REM PRINT BOARD 

430 HOME 

435 P = 200:D = 50: GOSUB 8000 

440 FOR F = 1 TO 6 

450 FOR G = 1 TO 8 

460 PRINT A$(F 9 G); 

470 NEXT G 

480 PRINT 

490 NEXT F 

500 PRINT "12345678" 

510 PRINT 

520 IF FLAG = 1 THEN PRINT "I 
HAVE WON!!": GOSUB 5200: END 



530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 

(F,l) 
660 

OSUB 
670 

OSUB 
680 
690 
700 
710 
720 
730 

F 



RETURN 

REM ************************* 

REM COMPUTER MOVES 

PRINT "MY MOVE. . ." 
MV = 

FOR F = 1 TO 8 
B(F,2) = 

NEXT F 

FOR F = 1 TO 8 

FOR X = - 1 TO 1 

FOR Y = - 1 TO 1 

IF B(F,1<) = THEN 680 

IF A$(B(F,1) + X,F + Y) = "" OR A$(B 

+ X,F + Y) = "." THEN 680 

IF A$(B(F,1) + X,F + Y) = H$ THEN G 
810 

IF A$(B(F,1) + X,F + Y) = C$ THEN G 
910 

NEXT Y 

NEXT X 

NEXT F 
PC = 

FOR F = 1 TO 8 

IF B(F,2) > PC THEN PC = B(F,2):N = 
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740 NEXT F 

750 A$(B(N,1),N) = C$ 

760 B(N,1) = B(N,1) - 1 

770 N = 

780 PC = 

790 RETURN 

800 REM ************************* 

810 MV = 2 

820 Ml = MV 

830 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= H$ THEN MV = MV + 10 

840 IF A$(B(F,1) - X,F - Y) = H$ THEN MV 

= MV + 20 

850 IF MV < > Ml + 10 THEN 870 

860 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= H$ THEN MV = MV + 1000 

870 B(F,2) = B(F,2) + MV 

880 Ml = 

890 RETURN 

900 REM ************************** 

910 MV = 2 

920 Ml = MV 

930 IF A$(B(F,1) + (X * 2),F + (Y * 2)) 
= C$ THEN MV = MV + 9 

940 IF A$(B(F,1) - X,F - Y) = C$ THEN MV 
= MV + 20 

950 IF MV < > Ml + 9 THEN 970 
960 IF A$(B(F,1) + (X * 3),F + (Y * 3)) 
= C$ THEN MV = MV + 2000:FLAG = 
1 
970 B(F,2) = B(F,2) + MV 
980 RETURN 
5000 P = 10:D = 25 
5010 GOSUB 8000 
5020 P = P + 10 

5030 IF P < 250 THEN GOTO 5010 
5040 GOSUB 8000 
5050 P = P - 10 

5060 IF P > 10 THEN GOTO 5040 
5070 RETURN 
5200 P = 200:D = 25 
5210 FOR TD = 1 TO 5 
5220 GOSUB 8000 
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5230 NEXT TD 

5240 RETURN 

5250 NEXT TL 

5260 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 
URN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 

8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 

8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 

8050 RETURN 
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10 

15 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

OR A 
250 

HEN 
260 
270 

GOTO 
280 

OR A 

290 
300 
310 
320 
330 
340 
350 



REM 
REM 



PRINT BOARD 
COMPUTER MOVES 



REM ACCEPT HUMAN MOVE 



REM QUEVEDO CHESS MACHINE 
REM APPLE IIE/IIC VERSION 
GOSUB 1510: REM INITIALISE 
GOTO 60 
GOSUB 1320 
GOSUB 110: 
GOSUB 1320 
GOSUB 1120 
GOTO 40 
END 
REM ************** 

REM COMPUTER MOVES 
IF QUIT = 1 THEN 1080 
Wl = WK 

Rg^f ******** 

REM MOVE ONE 
= 1 

INT (BK / 10) 

INT (R / 10) 
ABS (KM - RM) 
= 46 
INT (BK / 



MOVE 

KM = 

RM = 

IF 

A(R) 

X = 

IF 

IF 

IF 

(R - 

IF 

270 

R = 

IF 

330 

IF 

(R + 



> 3 THEN 330 



X > 
A(R 
A(R 
20) 
A(R 

R - 
A(R 



10):Y = INT (R / 10) 
THEN 270 

10) < > 46 THEN 270 

19) = BK OR A(R - 21) = BK 
BK THEN 270 

11) = BK OR A(R - 9) = BK T 



10: GOTO 
+ 10) < 



300 
> 46 



A(R 
20) 
: GOTO 330 
R = R + 10 
A(R) = ASC ("R") 
RETURN 
REM ******** 

REM MOVE TWO 
MOVE = 2 
KM = BK - 10 * KM 



19) = BK OR A(R + 
BK THEN A(R) = R 



THEN A(R) = R: 
21) = BK 
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360 RM = R - 10 * RM 

370 IF ABS (KM - RM) < 2 THEN 480 
380 A(R) = 46 

390 IF R > 11 THEN IF (A(R - 12) = BK 
R A(R - 2) = BK OR A(R + 8) = B 

K) THEN A(R) = R: GOTO 480 
400 IF R > 11 THEN IF (A(R - 1 ) = BK OR 
A(R - 11) = BK OR A(R + 9) = B 

K) THEN A(R) = R: GOTO 480 
410 Y = BK - 10 * INT (BK / 10) 
420 Z = R - 10 * INT (R / 10) 
430 IF (Z = 1 OR Y > Z) AND A(R + 1) = 4 
6 THEN R = R + 1: GOTO 450 
440 R = R - 1 
450 A(R) = ASC ("R") 
460 RETURN 
470 REM ********** 
480 REM MOVE THREE 
490 MOVE = 3 

500 WM = WK .- 10 * INT (WK / 10) 
510 BM = BK - 10 * INT (BK / 10) 
520 IF ABS (WM - BM) < 3 THEN 600 
530 IF A(WK - 1) < > 46 OR A(WK - 18) = 
BK OR A(WK - 2) = BK OR A(WK + 

8) = BK THEN 610 
540 IF A(WK - 11) = BK OR A(WK + 9) = BK 
OR A(WK - 22) = BK THEN 610 
550 A(WK) = 46 
560 WK = WK - 1 
570 A(WK) = ASC ("K") 
580 RETURN 
590 REM ************************ 

600 REM MOVES FOUR, FIVE AND SIX 

610 Z = ABS ( INT (BK / 10) - INT (WK / 

10)) 

620 IF Z = THEN 950 

630 IF 2 * INT (Z / 2) = Z THEN 790 

640 REM ********* 

650 REM MOVE FOUR 

660 MOVE = 4 

670 A(R) = 46 

680 IF A(R - 10) < > 46 THEN 720 
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690 IF A(R - 9) = BK OR A(R - 11) = BK T 
HEN 720 

700 IF A(R - 19) = BK OR A(R - 21) = BK 
OR A(R - 20) = BK THEN 720 

710 R = R - 10: GOTO 760 

720 IF A(R + 10) < > 46 THEN A(R) = R: 
GOTO 790 

730 IF A(R + 19) = BK OR A(R + 21) = BK 
OR A(R + 20) = BK THEN A(R) = ASC 
("R"): GOTO 790 

740 IF A(R + 11) = BK OR A(R + 9) = BK T 
HEN A(R) = ASC ("R"): GOTO 790 

750 R = R + 10 
760 A(R) = ASC ("R") 
770 RETURN 
780 REM ********* 
790 REM MOVE FIVE 
800 MOVE = 5 
810 J = INT (BK / 10) 
820 K = BK - 10 * J 
830 L = INT (WK / 10) 
840 M = WK - 10 * L 

850 Z = 10: IF J < L THEN Z = - 10 
860 X = 1: IF K < M THEN X = - 1 
870 A(WK) = 46 
880 Wl = WK 
890 WK = WK + Z + X 
900 G = ABS (WK - BK) 

910 IF G = 1 OR G = 9 OR G = 10 OR G = 1 
1 THEN WK = W1:A(WK) = 75: GOTO 
950 
920 A(WK) = ASC ("K") 
930 RETURN 
940 REM ******** 
950 REM MOVE SIX 
960 MOVE = 6 
970 A(R) = 46 

980 IF R > 11 THEN IF A(R - 12) = BK OR 
A(R - 2) = BK OR A(R + 8 ) = BK 

OR A(R - 1) < > 46 THEN 1070 
990 IF R > 11 THEN IF (A(R - 1 ) = BK OR 
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A(R - 11) = BK OR A(R + 9) = B 
K) THEN 1070 

1000 Y = BK - 10 * INT (BK / 10) 

1010 Z = R - 10 * INT (R / 10) 

1020 IF (Z = 1 OR Y > Z) AND A(R + 1) = 
46 THEN R = R + 1: GOTO 1040 

1030 R = R - 1 

1040 A(R) = ASC ("R") 

1050 RETURN 

1060 REM ****** 

1070 GOSUB 1320 

1080 PRINT : PRINT 

1085 FLASH 

1090 PRINT "I CONCEDE TO THE MASTER" 

1095 NORMAL 

1100 GOSUB 5000: END 

1110 REM ***************** 

1120 REM ACCEPT HUMAN MOVE 

1130 REM ENTER <Q' TO QUIT 

1140 MOVE = 

1145 P = 100:D = 100: GOSUB 8000 

1150 PRINT ">> MOVE TO (LETTER, NO.) "; 

1160 INPUT G$ 

1170 IF G$ = "Q" THEN 1280 

1180 IF LEN (G$) < > 2 THEN 1160 

1190 Z = ASC (G$) 

1200 IF Z < 65 OR Z > 72 THEN 1160 

1210 X = VAL ( RIGHT$ (G$,l)) 

1220 IF X < 1 OR X > 8 THEN 1160 

1230 A(BK) = 46 

1240 BK = 10 * (Z - 64) + X 

1250 IF A(BK) = ASC ("R") THEN QUIT = 1 

1260 A(BK) = ASC ("$") 

1270 RETURN 

1280 PRINT : PRINT 

1290 INVERSE : PRINT "THANKS FOR THE GAM 
E" 

1295 P = 75:D = 150: GOSUB 8000 

1300 END 

1310 REM *********** 

1320 REM PRINT BOARD 

1325 P = 200:D = 50: GOSUB 8000 

1330 HOME 
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1340 PRINT : PRINT 

1350 IF MOVE > THEN PRINT "I USED MOV 
E ";MOVE 
1360 IF MOVE = THEN PRINT 
1370 PRINT : PRINT 
1380 PRINT TAB( 10) "ABCDEFGH" 
1390 FOR J = 8 TO 1 STEP - 1 
1400 PRINT TAB( 8)J;" " ; 
1410 FOR K = 10 TO 80 STEP 10 
1420 PRINT CHR$ (A(J + K)) ; 
1430 NEXT K 
1440 PRINT " ";J 
1450 NEXT J 
1460 PRINT 

1470 PRINT TAB( 10) "ABCDEFGH" 
1480 PRINT : PRINT 
1490 RETURN 

1500 REM ************** 
1510 REM INITIALISATION 
1520 HOME 

1530 GOSUB 8020: REM INITIALISE SOUND 
1540 MOVE = 
1550 QUIT = 
1560 DIM A(130) 
1570 FOR J = 10 TO 80 STEP 10 
1580 FOR K = 1 TO 8 

1590 A(J + K) = 46: REM ASCII OF "." 
1600 NEXT K 
1610 NEXT J 

1620 REM ** PLACE PIECES ** 
1630 REM BLACK KING - HUMAN 
1640 BK = INT ( RND (1) * 3) + 1 
1650 BK = 10 * BK + BK + INT ( RND (1) * 
5) 

1660 A(BK) = ASC ("$") 
1670 REM WHITE KING - COMPUTER 
1680 WK = INT ( RND (1) * 4) + 4 
1690 WK = 10 * WK + WK + INT ( RND (1) * 
2) 

1700 IF WK = BK THEN 1680 
1710 A(WK) = ASC ("K") 
1720 REM WHITE ROOK - COMPUTER 
1730 R = INT ( RND (1) * 4) + 4 
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2) 



1740 


R=10*R+R+ INT ( RND 


(1) 


1750 


IF R = WK OR R = BK THEN 1730 


1760 


IF ABS (R - BK) < 12 THEN 


1730 


1770 


A(R) = ASC ("R") 




1780 


RETURN 




5000 


P = 175:D = 50 




5010 


FOR TL = 1 TO 5 




5020 


GOSUB 8000 




5030 


FOR TD = 1 TO 50: NEXT TD 




5040 


NEXT TL 




5050 


RETURN 




8000 


REM SOUND ROUTINE 




8010 


POKE 10, P: POKE 11, D: CALL 


768: 


URN 






8020 


POKE 768,173: POKE 769,48: 


POKE 


• X 7 *-* • 


POKE 771,136: POKE 772,20 





RET 
770 



8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
240: POKE 777,8: POKE 778,202: 

POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM WASHINGTON D.C, 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 1160: REM INITIALISE 

30 REM ********************* 

40 REM MAJOR CYCLE 
50 P = INT (P + (P * 273 / ML)) 
60 GOSUB 160: REM PRINTOUT 
70 GOSUB 510: REM CALCULATE 
80 REM NOW CHECK END GAME 
90 GOSUB 710: REM STANDARD OF LIVING 
100 GOSUB 780: REM INFLATION RATE 
110 GOSUB 840: REM UNEMPLOYMENT 
120 IF GAME = 1 THEN HOME : GOTO 890 
130 GOTO 50 

140 REM ********************** 
150 REM PRINTOUT 

160 HOME :PZ = 50:DZ = 150: GOSUB 8000 
170 PRINT "PRESIDENT ";A$;":" 
180 PRINT "YOUR ADMINISTRATION HAS BEEN 
IN POWER FOR ";Y + Z / 
4;" YEARS" 
190 PRINT " 



200 PRINT " STATE OF THE NATION- 



i? 



210 PRINT "■ 



220 PRINT "POPULATION ";P 

230 PRINT "NO. UNEMPLOYED " ; INT (U);" 
"; INT (100 * U / P);"%" 

240 PRINT "CURRENT WAGES $ ";W0;" INFLA 
TION "; INT (IP);"%" 

250 PRINT "GOVT. EXPENDITURE LAST QTR. $ 
M ";GE 

260 PRINT "UNEMPLOYMENT COST $M "; INT ( 
10 * GU) / 10 

270 PRINT "INCOME FROM TAXES $M "; INT ( 
GI * 10) / 10 

280 PRINT "BUDGET SURPLUS(+) /DEFICIT(-) 
$M "; INT (BD * 10) / 10 
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290 PRINT "GROSS DOMESTIC PRODUCT $M " ; 
INT (GDP * 10) / 10 

300 IF Y + Z / 4 > .5 THEN PRINT "CHANG 
E IN LIVING STANDARD " ; INT ((2 

* ((RGDP / AGDP) * 100) - 100) / 3); 

!f°Mt 

310 PRINT " 



!l 

320 PRINT "PUBLIC INVESTMENT " ; Y ; " Q ";Z 
;" $M "; INT (IV * 10) / 10 

330 PRINT " 

» 

340 PRINT "OK, PRESIDENT ";A$;'\ 8 ," 

350 INPUT "ENTER GOVERNMENT SPENDING $M 
";GE 

360 INPUT "ENTER COST OF WAGES $M ";WN 

370 PRINT "IS YOUR ADMINISTRATION IN FAV 
OR OF " 

380 PRINT : PRINT "IMMIGRATION THIS QUAR 
TER (Y/N)?" 

390 GET X$ 

400 IF X$ < > "Y" AND X$ < > "N" THEN 
390 

410 PRINT TAB( 20) "OK . . . " ;X$ 

420 FOR H = 1 TO 1000; NEXT H 

430 IF X$ < > "Y" THEN RETURN 

440 PRINT "HOW MANY IMMIGRANTS WILL YOU 
ALLOW INTO THE US?" 

450 INPUT M 

460 IF M < THEN 450 

470 P = P + M 

480 RETURN 

490 REM ************************** 

500 REM CALCULATIONS 

510 CN = CN + (CN * IP / 100) 

520 U = P * (GE + IV) / (CN * 10) + P * ( 
IP / 1000) 

530 GU « U * WN / ML: REM UNEMPLOYMENT C 
OST 

540 GI = (((P - U) * WN * .4) / ML): REM 

INCOME FROM TAXES 

550 BD = BD + GI - GU - GE: REM BUDGET D 
EFICIT 
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560 AGDP = AGDP * (1 + (IP / 100)) 

570 GDP = GE + IV + ((P - U) * WN / ML) 

580 RGDP = GDP * 440 / AGDP 

590 IP = ((GE + IV) / CN * .1 + (WN / WO) 

/ 100) * 100 

600 IV = (CN * 67) / (IP * IP) 

610 WO = WN 

620 Z=Z+1:IFZ>4 THEN Z = 1:Y = + 

1 

630 RETURN 

640 REM ************************* 

650 REM CHECK BUDGET DEFICIT 
660 IF BD > - 1000 THEN RETURN 
670 GAME = 1 
680 FLAG = 1 
690 RETURN 

700 REM ************************* 
710 REM CHECK STANDARD OF LIVING 
720 IF Y < ,75 THEN RETURN 
730 IF INT ((2 * ((RGDP / AGDP) * 100) 
- 100) / 3) > - 15 THEN RETURN 

740 GAME = 1 

750 FLAG = 2 

760 RETURN 

770 REM ************************** 

780 REM CHECK INFLATION RATE 

790 IF IP < 15 THEN RETURN 

800 GAME = 1 

810 FLAG = 3 

820 RETURN 

830 REM ************************** 

840 REM CHECK UNEMPLOYMENT 
850 IF INT (U * 100 / P) < 15 THEN RET 
URN 
860 GAME = 1 
870 FLAG - 4 
880 RETURN 
890 REM ************************** 

900 REM END OF THE GAME 
905 PZ = 200:DZ = 100: GOSUB 8000 
907 PZ - 100:DZ = 75s GOSUB 8000 
910 PRINT "PRESIDENT ";A$;'\ YOUR" 
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920 PRINT "ADMINISTRATION'S POOR ECONOMI 
C" 

930 PRINT "PERFORMANCE HAS LED TO AN UNA 
CCEPTABLE" 

940 IF FLAG = 1 THEN PRINT "BUDGET DEFI 
CIT" 

950 IF FLAG = 2 THEN PRINT "DROP IN THE 

STANDARD OF LIVING" 

960 IF FLAG = 3 THEN PRINT "RISE IN THE 

INFLATION RATE" 

970 IF FLAG = 4 THEN PRINT "RISE IN UNE 
MPLOYMENT" 

980 PRINT " AMONG OTHER THING 

c " 

990 PRINT " 

. it 

1000 PRINT "THE LACK OF CONFIDENCE IN YO 
UR" 

1010 PRINT "ADMINISTRATION IS SO BAD THE 
RE ARE" 

1020 PRINT "CALLS FOR YOU TO RESIGN,.. YO 
U STEP" 

1030 PRINT "ASIDE TO ALLOW THE VICE-PRES 

IDENT TO" 

1040 PRINT " OCCUPY THE OVAL OFFICE 
ti 

1050 FOR H = 1 TO 1000: NEXT H 

1060 PRINT " 

ii 

1070 PRINT "YOU WERE PRESIDENT FOR " ; Y + 

(Z * .25);" YEARS" 

1080 PRINT "DURING YOUR TERM OF OFFICE, 
THE" 

1090 PRINT "POPULATION ROSE BY ";P - 3 * 
ML 

1100 PRINT "THE UNEMPLOYMENT RATE BECAME 
"; INT (U * 1000 / P) / 10;"%" 

1110 PRINT "AND THE INFLATION RATE BECAM 
E "; INT (10 * IP) / 10;"%" 

1120 PRINT "STANDARD OF LIVING CHANGED B 
Y "; INT ((2 * ((RGDP / AGDP) * 
100) - 100) / 3);"%" 
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1130 PRINT "AND THE BUDGET 
IT WAS $M"; INT (10 

BD) / 10 



SURPLUS/DEFIC 



1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 

E 
1240 
1250 
1260 
1270 
1280 
1290 

CT 
1300 
1310 
1320 



END 

REM 

REM 

HOME 

GOSUB 8020 
ML = 1000 * 
P = 3 * ML 



INITIALIZATION 



1000 



u = 

IV : 

GE = 

GU = 

GI = 

WN = 

wo = 

IP = 

GDP 

AGDP 
RGDP 
CN = 



P / 10; REM UNEMPLOYMENT 

= 236: REM INVESTMENT 

: 118: REM GOVERNMENT EXPENDITUR 



= 0: REM COST OF UNEMPLOYMENT 

= 0: REM INCOME FROM TAXES 

= 100: REM NEW WAGES 

= 100: REM OLD WAGES 

. 5: REM INFLATION PERCENT 

= 440: REM GROSS DOMESTIC PRODU 

= 440: REM BASE YEAR GDP 

= 440: REM REAL GDP 

354: REM ECONOMIC CONSTANT (US 



ED THROUGHOUT SIMULATION) 



1330 
1340 
1350 
1360 
1370 
8000 
8010 

ETURN 
8020 

,192: 







Z = 1:GAME = 0:FLAG = 
Y = 0: REM YEAR 

PRINT "ENTER YOUR LAST 

INPUT A$ 

RETURN 

REM SOUND ROUTINE 

POKE 10, PZ: POKE 11. DZ 



NAME" 



CALL 768: R 



POKE 768,173: POKE 769,48: POKE 770 
POKE 771,136: POKE 772,20 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
240: POKE 777,8: POKE 778,202: 

POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 
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10 REM STOCKMARKET 

15 REM APPLE IIE/IIC. VERSION 

20 HOME 

30 GOSUB 8020 

40 DIM S(5),N(5),P(5),D(5) 

50 S(l) = 1.49:S(2) = 1.99:S(3) = 2.49:S( 
4) = 2.99:S(5) = 3.49 

60 N(l) = 2000:N(2) = 1500:N(3) = 1200:N( 
4) = 1000:N(5) = 800 

70 BB = 265:TV = 15000:QQ = 15000-.DAY = 1 

80 PRINT : PRINT "ENTER YOUR GOAL FOR TH 
IS SIMULATION," 

90 PRINT TAB( 8)"$16,000 TO $100,000" 

100 INPUT GOAL 

110 IF GOAL < 16000 THEN PRINT "TOO LOW 
!": GOSUB 5000: GOTO 80 

120 IF GOAL > 100 * 1000 THEN PRINT "TO 
HIGH!": GOSUB 5000: GOTO 80 

130 REM ****************>!«♦* 

140 REM MAJOR LOOP 
150 FOR C = 1 TO 5 

160 REM ADJUST THE 55 IN THE NEXT LINE 
TO MODIFY THE GAME; 80 VERY HAR 
D, 30 VERY EASY 
170 D(C) = INT ( RND (1) * 55) + 1 
180 P(C) = INT ( RND (1) * (100 - D(C))) 
+ 1 

190 NEXT C 
200 GOSUB 230 
210 GOTO 460 
220 REM ******************** 

230 REM PRINT OUT 
240 HOME 



250 PRINT 



255 GOSUB 5200 

260 PRINT "DAY "DAY" YOUR GOAL IS 
$"GOAL 
270 PRINT " 



280 PRINT "COMPANY NUMBER:" 
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290 PRINT TAB( 2)1; TAB( 9)2; TAB( 16)3 
; TAB( 25)4; TAB( 32)5 
295 PRINT 

300 PRINT "CHANCE OF INCREASE (%):" 
310 PRINT TAB( 2)P(1); TAB( 9)P(2); TAB 
( 16)P(3); TAB( 25)P(4); TAB( 3 

2)P(5) 
315 PRINT 

320 PRINT "CHANCE OF DECREASE (%):" 
330 PRINT TAB( 2)D(1); TAB( 9)D(2); TAB 
( 16)D(3); TAB( 25)D(4); TAB( 3 

2)D(5) 
335 PRINT 

340 PRINT "CURRENT VALUE PER SHARE:" 
350 PRINT "$"; INT (S(l) * 100) / 100; T 
AB( 8)"$"; INT (S(2) * 100) / 1 

00; 
360 PRINT TAB( 15)"$"; INT (S(3) * 100) 
/ 100; TAB( 23)"$"; INT (S(4) * 

100) / 100; 
370 PRINT TAB( 30)"$"; INT (S(5) * 100) 
/ 100 

375 PRINT 

380 PRINT "NO. OF SHARES HELD:" 
390 PRINT TAB( 2)N(1); TAB( 9)N(2); TAB 
( 16)N(3); TAB( 24)N(4); TAB( 3 

1)N(5) 
395 PRINT 

400 PRINT "BANK $"; INT (BB)" TOTAL WORT 
H $"; INT (TV) 

410 PRINT " ^ 

it 

420 IF TV > GOAL THEN PRINT "YOU'VE HIT 

YOUR FINACAIL GOAL!": GOSUB 55 
00: END 

430 RETURN 

440 REM *********#*#**s}!*#jjs**#sjc###3!e 

450 REM ** SELL ** 

460 PRINT "DO YOU WANT TO SELL ANY SHARE 
S (Y/N)?" 

470 GET A$ 

480 IF A$ < > "Y" AND A$ < > "N" THEN 
470 
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490 IF A$ = "N" THEN 690 

500 GOSUB 230 

510 PRINT "WHICH ONES TO SELL? " ; 

520 GET A$ 

530 IF A$ < "1" OR A$ > "5" THEN 520 

540 C = VAL (A$) 

550 PRINT " OK " ; C 

560 PRINT "HOW MANY OF " ; C ; " TO SELL "; 

570 INPUT N 

580 IF N > N(C) THEN PRINT "YOU DON'T H 
AVE THAT MANY!": GOSUB 5000: GOTO 
570 

590 REM ************************ 

600 REM ADJUST FIGURES AFTER SALE 

610 BB = BB + S(C) * N: REM ADD VALUE TO 

BANK 

620 N(C) = N(C) - N: REM SUBTRACT NO. SO 
LD 

630 TV = 0: REM SET TOTAL WORTH TO ZERO 

640 REM NOW DETERMINE CURRENT WORTH 

650 FOR C = 1 TO 5 

660 TV = TV + N(C) * S(C) 

670 NEXT C 

680 TV = TV + BB: REM ADD IN BANK BALANC 

E 
690 GOSUB 230 
700 REM ************************* 

710 REM ** BUY ** 

720 PRINT "DO YOU WANT TO BUY ANY SHARES 
(Y/N)?" 

730 GET A$ 

740 IF A$ < > "Y" AND A$ < > "N" THEN 
730 

750 IF A$ = "N" THEN 890 

760 GOSUB 230 

770 PRINT "WHICH COMPANY TO BUY? "; 

780 GET A$ 

790 IF A$ < "1" OR A$ > "5" THEN 780 

800 C = VAL (A$) 

810 PRINT " OK ";C 

820 PRINT "HOW MANY OF ";C;" TO BUY "; 

830 INPUT N 

840 IF N * S(C) > BB THEN PRINT "YOU DO 
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N'T HAVE ENOUGH MONEY!": GOSUB 
5000: GOTO 830 
850 REM ************************** 
860 REM ADJUST FIGURES AFTER BUY 
870 BB = BB - S(C) * N 
880 N(C) = N(C) + N 
890 TV = 
900 FOR C = 1 TO 5 
910 TV = TV + N(C) * S(C) 
920 NEXT C 
930 TV = TV + BB 
940 GOSUB 230 

950 REM ************************** 
960 REM MODIFY ALL INDICATORS 
970 TV = 
980 FOR C = 1 TO 5 
990 K = INT ( RND (1) * 100) + 1 
1000 IF K < P(C) THEN S(C) = S(C) * (1 + 
(P(C) / 1000)) 

1010 K = INT ( RND (1) * 100) + 1 
1020 IF K < D(C) THEN S(C) = S(C) / (1 + 
(D(C) / 1000)) 

1030 TV = TV + (S(C) * N(C)) 
1040 NEXT C 
1050 TV = TV + BB 
1060 QQ = QQ * 1.005 
1070 W = (TV * 100 / QQ) - 100 
1080 IF W = THEN W = .1 
1090 W = W + 6 
1100 IF W < 1 THEN W = 1 
1110 IF W > 15 THEN W = 15 
1120 RESTORE 
1130 FOR T = 1 TO W 
1140 READ A$ 
1150 NEXT T 
1160 PRINT 

1170 REM ********************* 
1180 REM GIVE RATING, START NEW ROUND 
1190 PRINT "YOUR RATING AFTER THAT ROUND 
OF" 

1200 PRINT "TRADING IS '";A$;"'» 

1210 PRINT : PRINT TAB( 5)"<PRESS SPACE 

BAR TO CONTINUED 1 
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1220 GET A$: 
EM NOTE SPACE 
RKS 
1230 DAY = 
GOTO 



IF A$ < 
BETWEEN 

+ 1 



v. n \ 

QUOTE 



1 THEN 
MA 



1220: R 



DATA "FAIRLY GOOD" , "GOOD" , "VERY G 
DATA "GREAT" , "EXCELLENT" , "SUPERLAT 



D = 100 
8000 



DAY 

1240 GOTO 150 

1250 DATA "HOPELESS", "VERY, VERY, POOR" 

1260 DATA "TERRIBLE" , "AWFUL" , "BAD" 

1270 DATA "VERY ORDINARY" , "AVERAGE" 

1280 DATA "REASONABLE", "A LITTLE ABOVE 
AVERAGE" 

1290 
OOD" 

1300 
IVE" 

5000 

5010 

5020 

5200 

5210 

5220 

5500 

5510 

5520 

5530 

5540 

8000 

8010 
URN 

8020 
,192: 



200 



P = 50 

GOSUB 

RETURN 
P = 150:D = 

GOSUB 8000 

RETURN 
P = 250 :D = 

GOSUB 8000 
P = P - 10 

IF P > 10 

RETURN 

REM SOUND ROUTINE 

POKE 10, P: POKE 11, D 



THEN GOTO 5510 



CALL 768: RET 



POKE 769,48: 
POKE 772,20 



POKE 768,173 
POKE 771,136: 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: 
240: POKE 777,8: POKE 778,202: 

POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: 
76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 



POKE 770 



POKE 776 



POKE 783 
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10 

15 

20 

30 

40 

50 

60 

70 

80 

90 
Z = 

100 

110 

120 

130 

140 
(Y/N)?" 

150 GOSUB 

160 IF A$ 

170 IF SF 

180 PRINT 

(Y/N)?" 

190 GOSUB 
IF A$ 
GOSUB 
INPUT 



REM DETROIT CITY 

REM APPLE IIE/IIC VERSION 

GOSUB 1640: REM INITIALIZE 

GOTO 110 
MT = MT + 1: REM COUNTS MONTHS 

GOSUB 650 

IF TP > 200 THEN 1560 

PRINT "DO YOU WANT TO RESIGN (Y/N)?" 

GOSUB 1010 

IF A$ = "Y" THEN PRINT "OK, CHIEF" :P 
50:D = 250: GOSUB 8000: END 
GOSUB 1380 
650 

= 1 TO 1000: NEXT T 
GOSUB 850 
PRINT "DO YOU WANT TO 



GOSUB 
FOR T 



EXPAND OUTPUT 



1010 

= "Y" THEN 1080 
= 1 THEN 210 
"DO YOU WANT TO 



SELL FACTORY 4 



1010 

= "Y" THEN 1250 

650 

"HOW MANY EMPLOYEES TO HIRE 



200 

210 

220 
HE 

230 

240 
HE 

250 

260 

270 
CE 

280 
AS 

290 REM NEXT LINE REJECTS TOO BIG A CHA 
NGE IN SELLING PRICE 

300 IF ABS (PI - AS) > 2500 THEN PRINT 

"TOO BIG A CHANGE FOR THE MARK 
ET": GOTO 280 



NE = NE + HE: IF HE > THEN 260 
INPUT "HOW MANY EMPLOYEES TO FIRE " ; 

N = NE - HE 

GOSUB 650 
PI = AS: REM SET PI EQUAL TO OLD PRI 

INPUT "WHAT IS YOUR SELLING PRICE "; 
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310 HOME 

320 PRINT : PRINT : PRINT 

330 MI - INT ( RND (1) * 4000) + 48 * 10 
00: REM THIS MONTH'S SALES BY 
INDUSTRY 

340 C = C + 1: REM COUNTS NUMBER OF MONT 
HS 

350 IF C < 3 THEN 470 

360 M = INT ( RND (1) * 10 + 1) / 4: REM 
INFLATION 

370 HOME 

380 PRINT "INFLATION RATE THIS QUARTER I 

S " • M° "%" 
390 'PRINT "AVERAGE WAGES BILL WILL NOW R 

TCI? TO" 

400 AW = (AW * M / 100) + AW 
410 PRINT TAB( 8)"$"; INT (AW)" PER EMP 
LOYEE" 
430 PRINT : PRINT TAB( 12)"ANY KEY TO C 

ONTINUE" 

440 GET V$ 

450 FA = (FA * M / 100) + FA 

460 C = 

470 Y(l) = NE * 15 / 12: REM SALES BASED 

ON NUMBER OF EMPLOYEES 

480 Y(2) = (100 - AS / FA) * MI / 100: RE 
M SALES BASED ON INDUSTRY SALE 
S 

490 REM NEXT LINES SET LOWEST FIGURE FR 
OM Y(1),Y(2),M(5) EQUAL TO Y(3) 

500 IF Y(l) < Y(2) AND Y(l) < M(5) THEN 
Y(3) = Y(l) : GOTO 540 

510 IF Y(2) < Y(l) AND Y(2) < M(5) THEN 
Y(3) = Y(2): GOTO 540 

520 Y(3) = M(5) 

530 REM NEXT LINES DETERMINE MONTHLY SA 

LES 

540 IF ABS (PI - AS) < 501 THEN Y(3) = 
3.6 * Y(3) / 3 
' 550 IF Y(3) > M(5) THEN Y(3) = Y(3) - 19 
75: GOTO 550 

560 MC = (MC * M / 100) + MC 

570 EF = Y(3) / M(5) * 100: REM EFFICIEN 
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CY % AS SALES DIVIDED BY TOTAL 
OUTPUT 

580 AC = (MC * ( ABS (85 - EF) / 3) / 100 
) + MC: REM AVERAGE COST PER V 
EHICLE 

590 MP = ((Y(3) * (AS - AC)) - (NE * AW / 

12)): REM MONTHLY PROFIT 

600 MP = INT (MP / (100 * 1000)) 

610 TP = TP + MP / 10: REM TOTAL PROFIT 
IN MILLIONS 

620 M = 

630 GOTO 40 

640 REM *********************** 

650 REM REPORT PRINTOUT 

660 HOME 

665 PZ = 100:DZ = 100: GOSUB 8000 

670 PRINT "INDUSTRY SALES ";MI;" IN MONT 
H " ;MT 

680 IF MT > THEN PRINT "YOUR SALES: " 
; INT (Y(3));" ("; INT (Y(3) * 

1000 / MI) / 10;"% OF TOTAL)" 

690 PRINT " 



700 PRINT "YOU HAVE ";NE;" EMPLOYEES" 
710 PRINT "AVERAGE WAGES ARE $"; INT (AW 
) 
720 PRINT " OR $M "; INT (AW * NE / (100 
* 1000) / 12) / 10;" PER MONTH 



730 PRINT "• 



»t 



740 IF MT = THEN RETURN 

750 PRINT "AVERAGE COST PER VEHICLE IS $ 
"; INT (AC) 

760 PRINT "AND AVERAGE SELLING PRICE IS 
$"; INT (AS) 

770 PRINT "SO THE AVERAGE PROFIT IS $"; 
INT (AS - AC) 

780 PRINT "OR $M "; INT ((AS - AC) * Y(3 
) / (100 * 1000)) / 10;" PER MO 
NTH" 

790 PRINT " 
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800 PRINT "PROFIT FOR THE MONTH IS $M "; 
MP / 10 

810 PRINT "& TOTAL PROFIT TO DATE IS $M 
«. int (TP * 10) / 10 

820 PRINT " > 



ii 



830 RETURN 

840 REM ******************** 

850 REM MONTH REPORT 

860 HOME 

865 PZ = 150:DZ = 100: GOSUB 8000 

880 PRINT " ■— 

n 

890 PRINT "MAXIMUM MONTHLY OUTPUT:" 

900 PRINT TAB( 3)"FACT0RY 1 : " ; INT (M( 

D) 

910 PRINT TAB( 3)"FACT0RY 2: " ; INT (M( 

2)) 

920 PRINT TAB( 3)"FACT0RY 3: "; INT (M( 

3)) 

930 IF SF = 1 THEN 960 

940 PRINT TAB( 3)"FACT0RY 4: "; INT (M( 

4)) 

950 PRINT " 

it 

960 PRINT "TOTAL OUTPUT IS "; INT (M(5)) 

970 PRINT " 



980 PRINT "EFFICIENCY LEVEL IS "; INT (E 
F);"%" 
990 RETURN 

1000 REM ********************* 
1010 REM GET REPLIES 
1020 GET A$ 

1030 IF A$ < > "Y" AND A$ < > "N" THEN 
1020 

1040 PRINT TAB( 22)A$ 
1050 FOR J = 1 TO 500: NEXT J 
1060 RETURN 
1070 REM ********************* 

1080 REM INCREASE OUTPUT? 

1090 IF M(4) = THEN X = 15: GOTO 1110 

1100 X = 18 
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1110 PRINT "IT WILL COST $M " ; X ; " TO EXP 
AND" 

1120 PRINT TAB( 8)"0UTPUT BY 1%" 

1130 PRINT " 



»» 



1140 PRINT "HOW MANY % DO YOU WISH TO RA 
ISE OUTPUT?" 

1150 INPUT EP: IF EP < OR EP > 100 THE 
N 1150 

1160 M(5) = 

1170 FOR T = 1 TO 4 

1180 M(T) = M(T) + M(T) * EP / 100 

1190 M(5) = M(5) + M(T) 

1200 NEXT T 

1210 TP = TP - EX * X 

1220 FOR T = 1 TO 500: NEXT T 

1230 GOTO 170 

1240 REM ********************** 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT "FACTORY FOUR IS VALUED FOR S 
ALE AT $M 104" 

1270 PRINT "YOU CAN'T REBUY IT LATER IF 
YOU SELL IT. , ." 

1280 PRINT "DO YOu'wANT TO SELL (Y/N)?" 

1290 GOSUB 1010 

1300 IF A$ = "N" THEN 210 

1310 TP = TP + 104 

1320 SF = 1 

1330 M(5) = M(l) + M(2) + M(3) 

1340 M(4) = 

1350 GOTO 170 

1360 REM ********************* 

1370 REM CHECK ON LOSSES 

1380 IF MP > THEN SA = 0: GOTO 1480 

1390 SA = SA + 1 

1400 IF SA > 11 THEN 1420 

1410 GOTO 1480 

1420 HOME :PZ = 150:D = 250: GOSUB 8000: 
PZ = 150:DZ = 250: GOSUB 8000 

1430 PRINT : PRINT "YOU JUST MADE YOUR T 
WELFTH MONTHLY" 

1440 PRINT "LOSS IN A ROW " 

1450 PRINT TAB( 6) "YOUR EMPLOYMENT" 
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1460 

! !" 
1470 
1480 
1490 
1500 

T, THE 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 

NY HAS 
1590 
MADE" 
1600 

RD" 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 

LOYEES 
1690 

GE 
1700 
1710 
1720 
1730 
1740 


1750 
1760 
1770 
1780 
1790 
5000 



PRINT TAB( 6)"IS HEREBY TERMINATED 

END 

IF TP > = - 250 THEN 1530 

HOME :PZ = 200-.DZ = 250: GOSUB 8000 

PRINT : PRINT "UNDER YOUR MANAGEMEN 

COMPANY HAS" 

PRINT "LOST MORE THAN $M 250!!" 

GOTO 1450 

IF TP > 200 THEN 1570 

RETURN 

REM >5c*sjc*****^:*******5!«****** 

REM SWEET SWEET SUCCESS!!! 

HOME : GOSUB 5000 

PRINT : PRINT "WELL DONE! THE COMPA 

MADE MORE" 

PRINT " THAN $M 200. YOU'VE BEEN 



PRINT " 



A MEMBER OF THE BOA 



FOR T = 1 TO 2000: NEXT T 

END 

REM *##♦################♦*# 

REM INITIALIZATION 
HOME 

GOSUB 8020 
DIM M(5) , Y(5) 
NE = 12000: REM STARTING NO. OF EMP 

AW = 22995: REM STARTING AVERAGE WA 

AC = 11100: REM COST PRICE/VEHICLE 

AS = 12000: REM SELLING PRICE 

MI = 50 * 1000:MC = 10100 

Y(3) = 12500 

MS = 25:EF = 77:FA = 160:SF = 0:MT = 

FOR J = 1 TO 5 
READ M(J) 
NEXT J 
RETURN 

DATA 8900,3 250,2500,1625,16275 
PZ = 200:DZ = 50 
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5010 FOR TL = 1 TO 5 

5020 GOSUB 8000 

5030 FOR TH = 1 TO 50; NEXT TH 

5040 NEXT TL 

5050 RETURN 

8000 REM SOUND ROUTINE 

8010 POKE 10, PZ: POKE 11, DZ: CALL 768: R 
ETURN 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 
8: POKE 773,4 

8030 POKE 774,198 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 

8040 POKE 781,166: POKE 782,10: 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 

8050 RETURN 



POKE 775,11: POKE 776 



POKE 783 
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10 REM GRIDIRON 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 GOSUB 70 

50 GOTO 220 

60 REM ****************** 

70 , FOR X = 1 TO 2000: NEXT X 

80 RETURN 

100 PRINT A$;SA 

110 PRINT B$;SB 

120 RETURN 

130 REM ********************** 

140 IF Z$ = A$ THEN Z$ = B$ : RETURN 

150 Z$ = A$: RETURN 

170 PRINT " >PRESS ANY KEY<" 

180 GET M$ 

200 P = 100:D = 50: GOSUB 8000: PRINT TA 
B( 18)"0K": RETURN 

210 REM ********* 

220 REM INTIALISE 

230 DEF FN A(X) = INT ( RND (1) * X) + 

1 

240 PRINT "ONE PLAYER OR TWO" 

250 INPUT X 

260 IF X < 1 OR X > 2 THEN 250 

270 IF X = 1 THEN VC = 1:A$ = "SILICON C 
OWBOYS ": GOTO 300 

280 PRINT "WHAT IS THE NAME OF THE HOME 
TEAM?" 

290 ' INPUT A$: IF A$ = "" THEN 290 

295 A$ = A$ + " " 

300 PRINT "AND THE NAME OF THE VISITING 
TEAM?" 

310 INPUT B$: IF B$ = "" THEN 310 

315 B$ = B$ + " " 

320 Z$ = A$:NU = 35 

330 HOME 

340 PRINT "THERE ARE " ; INT (10 * (60 - 
(W / 4))) / 10;" MINUTES TO.GO" 

350 PRINT TAB( 8)Z$;"T0 KICK OFF" 
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360 PRINT 
RD LINE" 

370 IF VC 
: GOTO 400 

380 PRINT 

390 GOSUB 



Apple lie 

"YOU ARE ON YOUR OWN " ; NU ; " YA 

= 1 AND Z$ = A$ THEN GOSUB 70 



"TO KICK OFF. . ." 
170 

400 A = FN A(20) + 40 
410 PRINT Z$;"HAVE. . . " 
GOSUB 70 
FOR X = 1 TO A 
PX = INT (X / 3): IF PX < 



415 
420 
425 
= 1 
430 
440 
450 
460 
470 
480 



PRINT TAB( PX)"KICKED " ; X ; " 

NEXT X 
NU = NU + X 

GOSUB 70 

PRINT "THE BALL IS CAUGHT!" 

GOSUB 70 
490 A = FN A(30) + 10 
500 FOR X = 1 TO A 
505 PX = X / 5: IF PX < 1 THEN PX 
510 PRINT TAB( PX)"AND RETURNED 
ARDS" 
520 NEXT X 

530 NU = ABS (100 - NU + X) 
540 GOSUB 140 
550 PRINT " 



THEN PX 
YARDS" 



1 
X;" 



560 PRINT 

570 PRINT 

580 IF Z$ 
: GOTO 600 

590 GOSUB 

600 TG = 10 

610 IF W = 

620 IF W = 

630 IF W = 

640 HOME 

650 PRINT 
$ (B$,6);" " 

660 PRINT 
0;" MINUTES TO GO" 

670 GOSUB 70 



"THE BALL IS DOWN ON" 

Z$"'S ";NU;" YARD LINE" 

= A$ AND VC = 1 THEN GOSUB 70 



170 

:DN = 0:SL = NU 

60 OR W = 180 THEN 

120 THEN 2070 

240 THEN 2140 



2010 



LEFT$ (A$,6);" 

SB 

INT (10 * (60 



";SA;" "; LEFT 
• (W / 4))) / 1 
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680 PRINT " 



it 



690 PRINT Z$;"IN POSSESSION" 

700 PRINT TAB( 4)DN;" DOWN" 

710 PRINT TAB( 4)TG;" YARDS TO GO" 

720 PRINT " 



it 



730 PRINT "START AT ";SL;" YARD LINE" 

740 PRINT "NOW ON ";NU;" YARD LINE" 

750 PRINT 100 - NU;" YARDS TO TOUCHDOWN" 

760 PRINT " 



ii 



770 PRINT "ON THIS PLAY "; 
780 IF Z$ = A$ THEN PRINT A$;"CAN": GOT 
800 
790 PRINT B$;"CAN" 
800 PRINT "EITHER 1 - THROW" 
810 PRINT " 2 - CARRY" 

829 PRINT " OR 3 - PUNT" 

830 PT = 

840 IF Z$ = A$ AND VC = 1 AND DN < 3 THE 
N PT = 2: GOTO 900 

850 IF Z$ = A$ AND VC = 1 AND TG < 7 THE 
N PT = 2: GOTO 900 

855 IF Z$ = A$ AND VC = 1 AND DN > 2 THE 
N PT = 3: GOTO 900 

860 IF Z$ = A$ AND VC = 1 AND (100 - NU) 

< 31 THEN PT = 3s GOTO 900 

870 IF Z$ = A$ AND VC = 1 THEN PT = 1 : G 
OTO 900 

880 GET K$: IF K$ < "1" OR K$ > "3" THEN 

880 

890 PT = VAL (K$): PRINT TAB( 10)"0K "; 

PT 

900 GOSUB 70 

910 W = W + 1 

920 HOME 

930 PRINT Z$;", YOUR QUARTERBACK HAS" 

940 PRINT TAB( 8)"G0T THE BALL" 

950 PRINT " 

ii 

960 PRINT "WAIT FOR THE COUNT, ";Z$;"," 
970 PRINT TAB( 8)"THEN HIT ANY KEY.,." 
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980 1$ = "» 

990 GOSUB 70 

1000 GOSUB 2200 

1010 IF E = 11 THEN 2340 

1020 PRINT "■ 



1030 ON PT GOTO 1050,1310,1590 

1040 REM ***#****######**#####*##### 

1050 PRINT "YOU'VE THROWN " ; E * 5;" YARD 

1060 PRINT TAB( 4);"AND THE PLAY IS..." 
1070 A = FN A(8) 
1080 IF A = 1 THEN 1520 
1090 A = FN A(E + 1) 

1100 IF A = 1 THEN PRINT TAB( 20)"... C 
OMPLETE": GOTO 1220 

1110 PRINT TAB( 20)"...INC0MPLETE":DN = 

DN + 1 

1120 GOSUB 170 

1130 PRINT " 



1140 IF DN > 3 THEN 1160 

1150 GOTO 610 

1160 PRINT "THAT WAS YOUR FOURTH DOWN" 

1170 PRINT "AND YOU'VE LOST POSSESSION!! 

- NU): 



1180 


DN = OjTG = 10:NU = ABS (1C 


SL = ] 


NU 


1190 


GOSUB 70 


1200 


GOSUB 140 


1210 


GOTO 610 


1220 


GOSUB 170 


1230 


NU = NU + (E * 5):TG = TG - 


1240 


IF NU > 100 THEN 1800 


1250 


IF TG < 1 THEN 1280 


1260 


DN = DN + 1: IF DN > 3 THEN 


1270 


GOTO 610 


1280 


DN = 0:TG = 10:SL = NU 


1290 


GOTO 610 


1300 


REM ***********#*#*#*#**** 


1310 


A = FN A(15) 


1320 


IF A = 1 THEN 1510 


1330 


E = A - 5 



(E * 5) 
1160 
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1340 IF E < THEN 1440 

1350 IF E = THEN E = 1 : GOTO 1370 

1360 PRINT "GOOD SNAP, PASS AND RUN" 

1370 PRINT "YOU'VE GAINED ";E;" YARDS" 

1380 GOSUB 170 

1390 TG = TG - E:NU = ABS (NU + E):DN = 

DN + 1 

1400 IF NU > 100 THEN 1800 

1410 IF TG < 1 THEN 1280 

1420 IF DN > 3 THEN 1160 

1430 GOTO 610 

1440 PRINT "GREAT RUNNING BY THE OPPOSIT 
ION HAS" 

1450 PRINT "CAUSED YOU TO LOSE " ; ABS (E 
\ „ «i YARDS" 

1460 Tg'= TG - E:NU = NU + E:DN = DN + 1 

1470 GOSUB 170 

1480 IF DN > 3 THEN 1160 

1490 GOTO 610 

1500 REM ************************ 

1510 PRINT "BAD SNAP ... YOU ' VE" 

1520 PRINT "FUMBLED... AND" 

1530 PRINT "YOU'VE LOST POSSESSION..." 

1540 NU = 100 - NU:DN = 0:TG = 10:SL = NU 

1560 GOSUB 170 

1570 GOTO 460 

1580 REM ************************* 

1590 PRINT "NICE PUNT. . ." 

1600 PRINT "YOU'VE KICKED " ; E * 4;" YARD 

C II 

1610 NU = NU + E * E 

1620 IF NU > 100 THEN 1650 

1630 PRINT " 



1640 GOTO 460 

1650 A = FN A(3) 
1660 IF A > 1 THEN 1740 

1670 PRINT "BUT YOU'VE MISSED THE GOAL" 
1680 IF NU - E * 4 < 80 THEN NU = ABS ( 

100 - (NU - E * 4)): GOTO 1700 

1690 NU = 20 

1700 DN = 0:TG = 10:SL = NU 
1710 GOSUB 140 
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1720 GOSUB 170 

1730 GOTO 610 

1740 PRINT "...AND SCORED!" 

1745 P = 50:D = 150: GOSUB 8000 

1750 IF Z$ = B$ THEN SB = SB + 3: GOTO 1 
770 

1760 SA = SA + 3 

1770 GOSUB 100 

1780 GOSUB 170 

1790 NU = 35: GOTO 330 

1800 HOME 

1810 FOR X = 1 TO 5 

1820 PRINT TAB( X * 2) "TOUCHDOWN !! " 

1825 P = 25:D = 25: GOSUB 8000 

1830 NEXT X 

1840 IF Z$ = A$ THEN SA = SA + 6: GOTO 1 
860 

1850 SB = SB + 6 

1860 GOSUB 100 

1870 PRINT "TO PLAY FOR EXTRA POINT" 

1880 GOSUB 170 

1890 PRINT " 

f! 



1900 

E TO 

1910 

1920 

1930 

U = 2 

1940 

1950 

980 

1960 

1970 

1980 

1990 

2000 

2010 

2015 

2020 

2030 

2040 

2050 



PRINT "THE BALL IS SNAPPED ... PREPAR 
KICK!" 

GOSUB 70 

GOSUB 2200 

IF E > 9 THEN PRINT "YOU MISSED":N 
0: GOTO 1970 

PRINT "YOU SCORED. . . " : NU = 35 

IF Z$ = A$ THEN SA = SA + 1: GOTO 1 



SB = SB + 1 
GOSUB 140 
GOSUB 100 
GOSUB 170 
GOTO 330 
FOR X = 1 

P = 200:D = 



TO 10 
100: 

PRINT TAB( 2 * 
NEXT X 
GOSUB 100 
GOSUB 170 



GOSUB 8000 
X)"PERIOD OVER" 
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2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 



GOTO 660 

FOR X = 1 TO 10 

PRINT TAB( X * 2) "HALF TIME" 

NEXT X 

GOSUB 100 
Z$ = B$ 

GOSUB 170 
NU = 35 :W = W + 2: GOTO 330 

FOR X = 1 TO 10 

PRINT TAB( X * 2)"GAME OVER" 

NEXT X 

GOSUB 100 

END 

REM #########*############# 

= 0:X = 10 



E 



2200 

2210 IF Z$ = A$ AND VC = 1 
THIS ONE FOR ";A$: GOTO 2290 
2220 E = E + 1:X = X - 1 
PRINT TAB( E);E 
FOR Y = 1 TO X * 1.5 
I = PEEK ( - 16384) - 
1$ = CHR$ (I) 
POKE - 16368,0 
IF 1$ < > "" THEN Y 



THEN PRINT 



2230 
2240 
2250 
THEN 
2252 
2255 



128: IF I > 



= X * 1.5 + 1 



THEN RETURN 



A(7) 

NEXT 



RETURN 

2260 NEXT Y 

2270 IF E = 11 

2280 GOTO 2220 

2290 FOR E = 1 TO FN 

2300 FOR J = 1 TO 60: 

2310 PRINT TAB( E);E 

2320 NEXT E 

2330 RETURN 

2340 PRINT "TOO LATE! !" 

2350 PRINT "YOU'VE BEEN SACKED!!" 

2360 E = FN A(4) 

2370 IF E = 3 THEN 2430 

2380 PRINT "AND LOST FIVE 

2390 TG = TG + 5:DN = DN + 

2400 GOSUB 170 

2410 IF DN > 3 THEN 1160 

2420 GOTO 610 

2430 PRINT "AND LOST POSSESSION!" 



YARDS!" 
1:NU = 



NU 
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2440 DN = 0:NU = ABS (100 - NU + 5):SL = 

NU:TG = 10 

2450 GOSUB 170 

2460 GOSUB 140 

2470 GOTO 610 

8000 REM SOUND ROUTINE 

8010 POKE 10, P: POKE 11, D: CALL 768: RET 

8020 POKE 768,173: POKE 769,48: POKE 770 
,192: POKE 771,136: POKE 772,20 

8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: POKE 776 
,240: POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: POKE 783 
,76: POKE 784,0: POKE 785,3: POKE 
786,96 
8050 RETURN 
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10 REM TENNIS 

15 REM APPLE IIE/IIC VERSION 

20 HOME 

30 GOSUB 8020 

40 AA = 0:BB = 0:T = 0:KA = 

50 XA = 0:YA = 0:ZA = 

60 XB = 0:YB = 0:ZB = 

70 DEF FN A(X) = INT ( RND (1) * X) + 
1 

80 INPUT "ONE HUMAN PLAYER OR TWO " ; A 

90 IF A < 1 OR A > 2 THEN 80 

100 IF A = 1 THEN A$ = "BJORNX":VC = 1 

110 IF VC = 1 THEN 160 

120 PRINT "PLEASE ENTER A SIX-LETTER NAM 
E" 

130 INPUT "NAME OF FIRST PLAYER ";A$ 

140 IF LEN (A$) < 6 THEN A$ = A$ + " " : 

GOTO 140 

150 A$ = LEFT$ (A$,6) 

160 INPUT "NAME OF SECOND PLAYER ";B$ 

170 IF LEN (B$) < 6 THEN B$ = B$ + " " : 

GOTO 170 

180 B$ = LEFT$ (B$,6) 

190 S = 1:AA = 1:BB = 1 

200 HOME 

210 P$ = A$:R$ = B$ 

220 REM ********************** 

230 IF P$ = A$ THEN R$ = B$ 

240 IF P$ = B$ THEN R$ = A$ 

250 PRINT P$;" SERVING" 

260 PRINT "DO YOU WANT TO SERVE 1 - FAST 

270 PRINT " OR 2 - SLOW 

n 

280 IF P$ = A$ AND VC = 1 AND SC = THE 
N KB = 1: GOSUB 1720: GOTO 330 

290 IF P$ = A$ AND VC = 1 AND SC = 1 THE 
N KB = 2: GOSUB 1720: GOTO 330 

300 K$ = "":K = PEEK ( - 16384) - 128: I 
F K > THEN K$ = CHR$ (K) : POKE 
- 16368,0 
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310 

320 

330 

IT'! 

340 

350 

360 

370 

380 

00 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 

YOUR 



IF K$ < "1" OR 
KB = VAL (K$) 

PRINT : PRINT 
I A "; 

IF KB 

IF KB 

PRINT 



1 THEN 

2 THEN 
SERVE. . 

GOSUB 1720 

IF KB = 1 THEN 

EB = FN A(8) 
IF EB = 1 THEN 
IF EB = 3 AND S 
IF EB = 3 AND S 
GOTO 670 
REM ********** 
HOME : PRINT 
PRINT TAB( 8)" 
GOSUB 1720 

SC = 
IF P$ = A$ THEN 
GOTO 1150 
REM ********** 

HOME : PRINT 

TAB( 12) 
TAB( 8)" 



K$ > "2" THEN 300 

TAB( 6)KB; TAB( 10)"> 

PRINT "FAST"; 
PRINT "SLOW"; 

t! 

EB = FN A(3) : GOTO 4 

450 

C = THEN 520 

C = 1 THEN 590 

q • 9 n\j ill B o a 

1140 

***>i«^c^«^c^c^«^:>ic**** 



If QTjrp || 

. . .SECOND SERVE. 



PRINT 
PRINT 
GOSUB 1720 
SC = 1 
GOTO 230 
REM ************************** 

HOME : PRINT 

TAB( 12) 
TAB( 9)" 



PRINT 
PRINT 
GOSUB 1720 
SC = 
IF P$ = A$ THEN 
GOTO 1140 
REM ********** 

SC = 
HOME : PRINT 
POKE - 16368,0 
PRINT R$;", THE 

COURT" 



" OUT " 

DOUBLE FAULT " 



1150 

BALL IS": PRINT "IN 
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710 PRINT " " 

720 IF R$ = A$ AND VC = 1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

ZERO, TO RETURN THE BALL.. 



750 
760 
770 
780 
790 
800 
IF SI 

810 
820 
830 
840 
850 
860 
HEN 



X = 4 * FN 
GOSUB 1720 

E = 5 
PRINT TAB( 

Y = Y - 1 

S$ = ,ftf :Sl = 
> THEN S$ 
- 16368,0 
IF S$ < 
IF S$ < 
Y > 



A(3):Y = X 



2 * (11 - E));E 



PEEK ( - 16384) - 128 
= CHR$ (S): POKE 



IF 

E = 

IF 

IF 

890 



> "" AND E = 

> "" THEN 990 
THEN 790 

E - 1:Y = X 

E < - 1 THEN 990 

E = - 1 AND R$ 



THEN 890 



A$ AND VC = 1 T 



870 
880 
000 
890 
900 
EA = 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 



GOTO 780 
IF KB = 1 



THEN EA = FN A .(2): GOTO 1 



EA = FN A(4) 

IF E = AND 
FN A(8) 

IF EA = 1 THEN 940 

IF R$ = A$ THEN R$ 
R$ = A$: GOTO 670 

PRINT R$;", YOU,VE 

PRINT TAB( 8)"0UT 

GOSUB 1720 

IF R$ = A$ THEN R$ 

GOTO 1140 
EA = FN A(4) 



GOSUB 5000 
R$ = A$ AND 



VC = 1 THEN 



= B$: GOTO 670 

HIT THE BALL" 
OF PLAY. . ." 

= B$: GOTO 1150 



IF EA = 1 THEN 1070 

PRINT "YOU MISSED THE BALL, AND... 

GOSUB 1720 

PRINT "IT WAS IN... BAD MISTAKE" 

GOSUB 1720 

IF R$ = A$ THEN R$ = B$: GOTO 1150 

GOTO 1140 

PRINT "YOU MISSED THE BALL AND..." 
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1080 GOSUB 1720 

1090 PRINT " IT WAS OUT. .WELL LEFT" 

1100 GOSUB 1720 

1110 IF R$ = A$ THEN R$ = B$: GOTO 1140 

1120 GOTO 1150 

1130 REM ************************ 

1140 AA = AA + 1: GOTO 1160 

1150 BB = BB + 1 

1160 IF AA < 5 AND BB < 5 THEN 1230 

1170 IF (BB > 4 AND AA < 4) OR (BB > 4 A 
ND BB - AA > 1) THEN AA = 1 : BB = 
1: GOTO 1500 

1180 IF (AA > 4 AND BB < 4) OR (AA > 4 A 
ND AA - BB > 1) THEN AA = 1:BB = 
1: GOTO 1440 

1190 ' IF AA > 4 AND AA > BB THEN C$ = "AD 
V":D$ = " ": GOTO 1320 

1200 IF (BB > 4 AND BB > AA) THEN D$ = " 
ADV":C$ = " ": GOTO 1320 

1210 C$ = "{DEUCE";D$ = "{DEUCE": GOTO 13 
20 

1220 REM ************************* 



1230 


RESTORE 










1240 


FOR D = 1 


TO 


AA 






1250 


READ C$ 










1260 


NEXT D 










1270 


RESTORE 










1280 


FOR D = 1 


TO 


BB 






1290 


READ D$ 










1300 


NEXT D 










1310 


REM ************************* 


1320 


HOME 










1330 


PRTNT " 








n 


1340 


PRINT " 






SET 


SET SET" 


1350 


PRTNT " 








ft 


1360 


PRINT " 






1 


2 3 GAME" 


1370 


PRINT A$;" 






";XA;" 


n , Y» , it ii 


s ZiA ; 


";C$ 










1380 


PRINT B$;" 






" . YR . " 

; ad ; 


II . yn . It It 


y Zj IJ y 


";D$ 










1390 
1400 


PRINT " 








II 


GOSUB 1720 










1410 


IF T < > 


1 THEN 
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1420 END 

1430 REM ************************** 

1440 HOME 

1445 GOSUB 5500 

1450 PRINT "GAME TO ";A$ 

1460 GOSUB 1720 

1470 IF S = 1 THEN XA = XA + 1:C$ = "0": 
D$ = "0": GOTO 1560 

1480 IF S = 2 THEN YA = YA + 1:C$ = "0": 
D$ = "0": GOTO 1580 

1490 IF S = 3 THEN ZA = ZA + 1:C$ = "0"; 
D$ = "0": GOTO 1600 

1500 HOME 

1505 GOSUB 5500 

1510 PRINT "GAME TO ";B$ 

1520 GOSUB 1720 

1530 IF S = 1 THEN XB = XB + 1:C$ = "0": 
D$ = "0": GOTO 1560 

1540 IF S = 2 THEN YB = YB + 1:C$ = "0": 
D$ = "0": GOTO 1580 

1550 IF S = 3 THEN ZB = ZB + 1:C$ = "0": 
D$ = "0": GOTO 1600 

1560 IF (XA > 5 AND XB < 5) OR (XA < 5 A 
ND XB > 5) THEN 1630 

1570 IF (XA > 5 AND XA - XB > 1) OR (XB 

> 5 AND XB - XA > 1) THEN 1630 

1580 IF (YA > 5 AND YB < 5) OR (YA < 5 A 
ND YB > 5) THEN 1630 
1590 IF (YA > 5 AND YA - YB < 1) OR (YB 

> 5 AND YB - YA > 1) THEN 1630 

1600 IF (ZA > 5 AND ZB < 5) OR (ZA < 5 A 
ND ZB > 5) THEN 1680 
1610 IF (ZA > 5 AND ZA - ZB > 1) OR (ZB 

> 5 AND ZB - ZA > 1) THEN 1680 
1620 GOTO 1640 

1630 S = S + 1 

1640 AA = 1:BB = 1 

1650 IF P$ = A$ THEN R$ = A$:P$ = B$: GO 
TO 1320 

1660 P$ = A$:R$ = B$: GOTO 1320 

1670 REM ********************** 

1680 T = 1 

1690 GOTO 1320 
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1700 
1710 
1720 
1730 
1740 
5000 
5010 
5020 
5500 
5510 
5520 
5530 
5540 
5550 
8000 
8010 
ETURN 
8020 

t X y L a 

8030 
,240: 



8 



8040 
,76: P 
7 
8050 
14580 
:D$ = 



REM ********************** 

REM DELAY 

FOR M = 1 TO 1000: NEXT M 

RETURN 

DATA "0'V ! 15 f \"30'V ! 40" 
PZ = 200:DZ = 50 

GOSUB 8000 

RETURN 
PZ = 100 :DZ = 50 

FOR TL = 1 TO 3 

GOSUB 8000 

FOR TD = 1 TO 50: NEXT TD 

NEXT TL 

RETURN 

REM SOUND ROUTINE 

POKE 10, PZ: POKE 1 1 , DZ : CALL 768: R 

POKE 768,173: POKE 769,48: POKE 770 
POKE 771,136: POKE 772,20 
: POKE 773,4 

POKE 774,198: POKE 775,11: POKE 776 
POKE 777,8: POKE 778,202: 
POKE 779,208: POKE 780,246 

POKE 781,166: POKE 782,10: POKE 783 
OKE 784,0: POKE 785,3: POKE 
86,96 

RETURN 
IF S = 2 THEN YA = YA + 1:C$ = "0" 
"0": GOTO 1580 
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10 REM GRAND PRIX 

15 REM APPLE IIE/IIC VERSION 

20 GOSUB 2200: REM INITIALIZE 

30 GOSUB 1190: REM CHOOSE TRACK 

40 REM *********************** 

50 REM MAJOR LOOP 

60 GOSUB 120: REM PRINTOUT 

70 GOSUB 280: REM ACCELERATION/CHECK 

80 GOSUB 450: REM ENGINE/BRAKES 

90 GOSUB 500: REM CORNER/POSITION 

100 GOTO 60 

110 REM ********************** 

120 REM PRINTOUT 

130 HOME 

140 PRINT "ENGINE TEMPERATURE " ; INT (EN 
G * 10) / 10;" C. (MAX. 200)" 

150 PRINT "BRAKE TEMPERATURE: "; INT (BR 

AK * 10) / 10;" C. (MAX. 500)" 

160 PRINT " DISTANCE COVERED: "; INT (DI 

ST * 10) / 10;" METERS" 

170 PRINT " : "; INT (DI 

ST * 100 / RR) / 100;" LAPS" 

180 PRINT "YOU'RE IN POSITION "; INT (FP 

) 

190 PRINT " 

ii 

200 PRINT " CURRENT SPEED: "; INT (SP 

* 10) / 10;" KPH" 

210 PRINT " : "; INT (SP 

* 5.555) / 10;" METERS PER MOV 

E" 

220 PRINT " 

ii 

230 PRINT "CORNER APPROACHING "; INT (AP 

P);" METERS" 

' 240 PRINT "RECOMMENDED SPEED: ";C(C);" K 
PH" 

250 PRINT " 

ii 

260 RETURN 

270 REM ************************ 
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ACCELERATION AND FACTORS 
X$ < > "Z" AND X$ < > " 

> " " THEN 290 

TAB( 12)"0K" 



280 REM CHECK 

290 GET X$: IF 
M" AND X$ < 

300 PRINT 

310 X = 

320 IF X$ = "M" THEN X = SP / 15 

330 IF X$ = "Z" THEN X = - SP / 

340 NUM = NUM + 

350 SP = SP + X 

360 IF SP < THEN SP = 

370 TRAV = SP * .5555: REM 
VELLED 

380 DIST = DIST + TRAV: REM TOTAL DISTAN 
CE TRAVELLED 



1: REM NUMBER OF 



15 
MOVES 



DISTANCE TRA 



390 ENG = 

THEN ENG 

REM 

400 IF X 

BRAKE EMP 

G 
410 IF X 
- RND (1) 



ENG + (X / 2) + .07: IF ENG < 7 

= 70 + RND (1) * 8: 

ENGINE TEMP 

> THEN BRAK = BRAK * '.9: REM 

FALLING; ACCELERATIN 



420 
* 8 
430 
440 
450 
460 
E HAS 



< 1 THEN 
* 3: REM 

INCREASING; 

IF BRAK < 8 



BRAK = BRAK - (3 * X) 
BRAKE TEMP 
BRAKING 
THEN BRAK = 8 + RND (1) 



RETURN 

REM *********************** 

REM CHECK ENGINE/BRAKE TEMP 
IF ENG > 200 THEN PRINT "YOUR ENGIN 
OVERHEATED": GOSUB 5000: GOTO 
830 

470 IF BRAK > 500 THEN PRINT "YOUR BRAK 
ES HAVE OVERHEATED": GOSUB 5000 
: GOTO 830 

480 RETURN 

490 REM ********************** 

500 REM CHECK CORNERING SPEED AND FIELD 

POSITION 

510 APP = APP - TRAV 

520 IF APP > THEN RETURN 

530 CRASH = 

540 IF SP > (C(C) * 1.125) THEN CRASH = 
1: GOTO 690 
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550 IF SP > (C(C) * 1.1) THEN GOTO 690 

560 PNT = PNT + 100 - ((C(C) * 1.1) - SP) 
: REM CORNERING POINTS 

570 NC = NC + 1: REM NUMBER OF CORNERS 

580 CP = 96 - (PNT / NC) : REM CORNERING 
POSITION 

590 AM = AM + A(C): REM AVERAGE NUMBER 
F MOVES ALLOWED 

600 RP = NUM - AM: REM RACING POSITION. 
YOUR MOVES MINUS AVERAGE MOVES 

610 FP - (CP + RP) / 2: REM FIELD POSITI 
ON IS AVERAGE OF CORNER & RACE 
POSITIONS 

620 IF FP < 1 THEN FP = 1 

630 C = C + 1 

640 IF C = WW THEN C = 1 : REM LAP OVER 

650 APP = APP + D(C) 

660 IF LAP * QQ = AM THEN 910: REM RACE 

OVER 

670 RETURN 

680 REM ************************** 

690 REM CRASHED 

700 HOME 

710 PRINT "YOU CORNERED AT " ; INT (10 * 
SPEED) / 10;" KPH" 

720 PRINT "AND THE MAXIMUM SPEED WAS JUS 
T ";C(C) 

730 GOSUB 2330 

740 PRINT "YOU SPIN OFF THE TRACK..." 

750 GOSUB 2330 

760 IF CRASH = 1 THEN GOSUB 5200: GOTO 
830 

770 PRINT "YOU'VE LOST 20 SECONDS, BUT Y 
OU'RE ABLE TO REJOIN THE R 
ACE" 

780 NUM = NUM + 10:SP = INT (2 * (C(C) / 

3) 

790 PNT = PNT + 50 

800 GOSUB 2330 

810 GOTO 570 

820 REM #####'#################### 

830 PRINT " AND CRASH!!!'!!!" 
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840 PRINT " 

it 

850 PRINT "YOU ONLY COMPLETED "; INT (10 

* DIST) / 10;" METERS" 

860 PRINT "OR "; INT (DIST * 100 / RR) / 

100;" LAPS AND AT THAT" 

870 PRINT "STAGE WERE IN POSITION "; INT 

(FP) 

880 PRINT " 



H 



890 GOTO 1050 

900 REM *######################♦ 

910 REM RACE OVER 

920 HOME 

930 EFLAG = 1 

940 FOR X = 1 TO 20 

950 PRINT TAB( X)"WELL DONE, ";A$;" !!" 

960 PRINT TAB( 21 - X)"WELL DONE ";A$;" 

! ! " 

970 NEXT X 

980 PRINT " 



it 



990 PRINT "YOU MANAGED TO LAST OUT THE F 
ULL ";LAP;" LAP RACE..." 
1000 PRINT " 



1010 GOSUB 2330 

1020 PRINT "YOU FINISHED IN POSITION "; 
INT (FP) 

1030 PRINT "AFTER STARTING IN 6TH POSITI 
ON ... " 

1040 GOSUB 2330 

1050 PRINT "YOUR AVERAGE SPEED WAS "; IN 
T (DIST * 180 / NUM) / 100;" KP 
H" 

1060 GOSUB 2330 

1070 IF RP < 1 THEN RP = 1 

1080 IF CP < 1 THEN CP = 1 

1090 PRINT "YOU WERE "; INT ( ABS (RP)); 
"TH FASTEST ON STRAIGHTS," 

1100 PRINT "AND "; INT ( ABS (CP));"TH F 
ASTEST ON CORNERS." 
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1110 PRINT : PRINT "PRESS 'S' FOR SAME R 
ACE, f N f FOR NEW RACE, 'E' T 

END" 

1120 GET 1$: IF 1$ < > "S" AND 1$ < > 
"N" AND 1$ < > "E" THEN 1120 

1130 IF 1$ = "E" THEN END 

1140 GOSUB 2240 

1150 RESTORE 

1160 IF 1$ = "S" THEN GOSUB 1490:LAP = 
L2AP: GOTO 60 

1170 IF 1$ = "N" THEN HOME : GOSUB 1250 
: GOTO 60 

1180 REM #*♦##*######♦#######*♦ 

1190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR NAME, DRIVER "; 
A$ 

1210 PRINT 

1220 FOR X = 1 TO 3 

1230 PRINT TAB( 4 * X)"OK, GOOD LUCK, " 

;A$ 
1240 GOSUB 2330: NEXT X 
1250 PRINT "############################ 

1260 PRINT "WHICH RACE DO YOU WANT TO TA 
KE PART IN:" 

1270 PRINT 

1280 PRINT TAB( 7)"BRITISH GRAND PRIX 
2650MT :1" 

1290 PRINT TAB( 7)"GERMAN GRAND PRIX 
1700MT :2" 

1300 PRINT TAB( 7)"ITALIAN GRAND PRIX 
2200MT :3" 

1310 PRINT TAB( 7)"M0NAC0 GRAND PRIX 
3100MT :4" 

1320 PRINT 

1330 PRINT TAB( 7)"ENTER A NUMBER (1 TO 

4)" 

1340 GET K$ 

1350 IF K$ < "1" OR K$ > "4" THEN 1340 

1360 GP = VAL (K$) 

1370 PRINT "***************************# 

;jc ^s 5js % %: >Js % >Jc >}c >}c " 

1380 PRINT TAB( 8)"0K, THE "; 
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1390 IF GP = 1 THEN PRINT "BRITISH"; 

1400 IF GP = 2 THEN PRINT "GERMAN"; 

1410 IF GP = 3 THEN PRINT "ITALIAN"; 

1420 IF GP = 4 THEN PRINT "MONACO"; 

1430 PRINT " RACE" 

1440 PRINT "**************************** 

1450 PRINT : PRINT "OVER HOW MANY LAPS?" 

1460 INPUT LAP: IF LAP < 1 THEN 1460 

1470 LAP = INT (LAP + .5):L2AP = LAP 

1480 REM ***************** 

1490 REM BRITISH DATA 

1500 SP = 140 

1510 FOR X = 1 TO 9 

1520 READ D(X): REM DISTANCE BETWEEN CO 
RNERS 

1530 NEXT X 

1540 DATA 800,400,250,200,250,300,100,1 
00,250 

1550 FOR X = 1 TO 9 

1560 READ C(X): REM RECOMMENDED MAXIMUM 

CORNERING SPEED 

1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150, 
150 

1590 FOR X = 1 TO 9 

1600 READ A(X): REM AVERAGE NUMBER OF M 
OVES ALLOWED BETWEEN CORNERS 

1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1630 APP = 800:WW = 10:QQ = 24:RR = 2650 

1640 IF GP = 1 THEN RETURN 

1650 REM ************************ 

1660 REM GERMAN DATA 

1670 SP = 85 

1680 FOR X = 1 TO 7 

1690 READ D(X) 

1700 NEXT X 

1710 DATA 600,200,100,150,250,200,200 

1720 FOR X = 1 TO 7 

1730 READ C(X) 

1740 NEXT X 

1750 DATA 90 9 175,120 9 90 9 200,200 5 175 
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1760 FOR X = 1 TO 7 

1770 READ A(X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 

1800 APP = 600:WW = 8:QQ = 17:RR = 1700 

1810 IF GP = 2 THEN RETURN 

1820 REM ************************* 

1830 REM ITALIAN DATA 

1840 SP = 108 

1850 FOR X = 1 TO 7 

1860 READ D(X) 

1870 NEXT X 

1880 DATA 800,300,100,150,300,350,200 

1890 FOR X = 1 TO 7 

1900 READ C(X) 

1910 NEXT X 

1920 DATA 120,90,90,150,200,120,150 

1930 FOR X = 1 TO 7 

1940 READ A(X) 

1950 NEXT X 

1960 DATA 8,3,2,1,3,3,2 

1970 APP = 800:WW = 8:QQ = 22:RR = 2200 

1980 IF GP = 3 THEN RETURN 

1990 REM ************************* 

2000 REM MONACO DATA 

2010 SP = 162.5 

2020 FOR X = 1 TO 14 . 

2030 READ D(X) 

2040 NEXT X 

2050 DATA 400,100,100,300,400,300,150,2 
00,200,200 

2060 DATA 150,150,200,250 

2070 FOR X = 1 TO 14 

2080 READ C(X) 

2090 NEXT X 

2100 DATA 175,150,175,200,120,200,175,9 
0,175,150 

2110 DATA 150,175,120,150 

2120 FOR X = 1 TO 14 

2130 READ A(X) 

2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 

2160 DATA 1,2,2,2 
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2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 


2280 
2290 
2300 
2310 
2320 
2330 
2340 
5000 
5010 
5020 
5030 
5040 
5200 
5210 
5220 
8000 
8010 

ETURN 
8020 

,192: 



APP = 400:WW = 15-.QQ = 30:RR = 3100 

RETURN 

REM ###################:>}:#:{:### 

REM INITIALIZATION 

HOME 

GOSUB 8020 

DIM A(14),C(14),D(14) 
C = 1:FP = 6:PNT = 0:NC = 0:CP = 0: 
AM = 0:RP = 0:APP = 
NUM = 0: REM NUMBER OF MOVES 
ENG = 100:BRAK = 10:TRAV = 0:DIST = 

EFLAG = 
X = 
RETURN 

REM #**♦##♦***###*#*##♦♦##### 

REM DELAY 

FOR = 1 TO 1000: NEXT 

RETURN 
PZ = 200 :DZ = 75 

FOR TL = 1 TO 3 

GOSUB 8000 

NEXT TL 

RETURN 
PZ = 100:DZ 

GOSUB 8000 

RETURN 

REM SOUND 

POKE 10, PZ: 



= 255 



ROUTINE 
POKE 11 



DZ: CALL 768: R 



POKE 769,48 
POKE 772,20 



POKE 768,173 
POKE 771,136: 
8: POKE 773,4 
8030 POKE 774,198: POKE 775,11: 
240: POKE 777,8: POKE 778,202: 

POKE 779,208: POKE 780,246 
8040 POKE 781,166: POKE 782,10: 
76: POKE 784,0: POKE 785,3: POKE 

786,96 
8050 RETURN 



POKE 770 



POKE 776 



POKE 783 
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10 


REM 


15 


REM 


20 


RPT ■ 


30 


LD = 


40 


DIM 


RECORD 



ULAT10N / Apple lie werslon 

FLIGHT SIMULATION 
APPLE IIE/IIC VERSION 
= 

INT ( RND (1) * 360) 
E$(1000): REM THIS HOLDS 



FLIGHT 



A$(7),C$(7): REM THESE ARRAYS HO 
LD HORIZON AND COMPASS OUTPUT 
60 REM ******************** 
70 GOSUB 2320; REM INITIALIZE 
80 IF CRASH = THEN GOSUB 820; REM H 
ORIZON/COMPASS 
90 GOSUB 500: REM PRINTOUT 
100 IF CRASH = 1 THEN END 
110 IF LA = 1 AND UFLAG = 1 THEN PRINT 
"WELL DONE, A PERFECT LANDING!! 
": END 
120 IF LA = 1 AND UFLAG = THEN PRINT 
"YOUR WHEELS ARE UP": GOSUB 178 
0: GOTO 90 
130 T = AI: STALL = 

140 X$ = "":XZ = 0:XZ = PEEK ( - 16384) 
- 128: IF XZ > THEN X$ = CHR$ 
(XZ) 
150 IF X$ = "R" THEN RPT = 1 : GOTO 
160 IF RPT = 1 AND E$(CLOCK + 1) = 
EN RPT = 0: GOTO 140 

THEN X$ = E$(CLOCK + 1) 
THEN 140 



IF 
IF 



170 
180 
185 
190 

X$ 
200 IF 

RND (1) * 2 
210 IF AI 
220 IF X$ 
5 : IF EL y 
230 IF X$ 
- 5: IF EL 



RPT = 1 

0: GOTO 

RPT = 1 

X$ = "" 
POKE - 16368,0 
IF CLOCK < 999 THEN E$(CLOCK 



70 

ti ti 



TH 



TAKEOV = 1 THEN 
- RND (1) * 
< 3 THEN 290 
= "Q" THEN EL 
60 THEN STALL 
= "A" THEN EL 
< - 70 THEN 



EL 
3) 



+ 1) = 
= INT (EL + 



= EL + 5:EFLAG = 

= 1 

= EL - 5:EFLAG = 

STALL 



240 IF 



- 1 

STALL 



< > THEN GOSUB 1640 
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250 IF ALTIMETER < 1 THEN 290: REM PREV 
ENTS DRAMATIC TURNS ON THE GROU 
ND 
260 IF X$ = "Z" THEN WA = WA - .5: ANG = 
ANG - 6: IF WA < - 3 THEN WA = 
- 3 
270 IF X$ = "M" THEN WA = WA + .5: ANG = 
ANG + 6: IF WA > 3 THEN WA = 3 
280 ANG = INT (ANG + RND (1) * 2 - RND 
(1) * 2) 

290 IF X$ = " " THEN AI = AI + 8,5 
300 IF X$ = ".» THEN AI = AI - 7 
310 AI = AI - EL / 5 

320 IF UFLAG = 1 THEN AI = AI - 1 . 5 : FUEL 
= FUEL - .5 

330 IF AI < THEN AI = 
340 IF AI > 400 THEN AI = 400 
350 IF X$ = "1" AND UFLAG = THEN UFLAG 
= 1: GOTO 370 

360 IF X$ = "1" AND UFLAG = 1 THEN UFLAG 
= 

370 FUEL = FUEL - ( ABS (T - AI) / 10) - 
3.75 
380 IF FUEL < 1 THEN GOSUB 1780 
390 IF TAKEOV = 1 THEN 420 
400 IF EL > 10 AND AI > 45 AND AI < 60 A 
ND UFLAG = 1 THEN TAKEOV'- 1 

410 IF TAKEOV = THEN ALTIMETER = 0: GO 
TO 450 
420 IF LA = AND AI < 30 THEN EL = EL - 
5: ALTIMETER = 9 * ALTIMETER / 

10 
430 ALTIMETER = ALTIMETER + INT (((EL + 
.1) * AI) + EFLAG * AI / 1000) / 
80 
440 IF ALTIMETER < 300 AND TAKEOV = 1 TH 
EN ALTIMETER = ALTIMETER + AI / 
30 + EL 
450 IF ALTIMETER < THEN GOSUB 1780: R 
EM CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE I 
T EASIER (OR EVEN HARDER) TO LA 
ND 
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470 IF ALTIMETER > 15 AND AI >. 20 OR TAK 
EOV = THEN 80 

480 IF ABS (ANG - LD) < 13 OR ABS (ANG 

+ 360 - LD) < 13 THEN LA = 1 : GOTO 
80 

490 REM ****************** 

500 REM PRINTOUT 

510 HOME 

520 PRINT " HORIZON"; TAB( 20)"HEADING 
ii 

530 EV = INT (EL / 10) 

540 IF EV > 2 THEN EV = 2 

550 IF EV < - 2 THEN EV = - 2 

560 IF EV < > AND TAKEOV = 1 AND CRAS 

H = THEN GOSUB 1920 

570 PRINT ": : : " 

580 FOR J = 1 TO 7 

590 PRINT ": ";A$(J); lf :";C$(J);" : " 

600 A$(J) = "" 

610 NEXT J 

620 PRINT ": : " 

630 DIST = DIST + ABS (( COS (EL)) * AI) 

/ 360 

640 CLOCK = CLOCK + 1 

650 PRINT ":RANGE "; INT (DIST * 10) / 1 

0;": TIME "; INT (CLOCK) / 10;" 
: " ; LD 

660 PRINT ": : " 

670 PRINT ": AIRSPEED : " ; INT (AI) 

675 IF AI < 20 THEN PRINT ">": GOTO 690 

680 PRINT ": " ; LEFT$ (Q$, INT (AI / 20) 

\ . it v ii 

690 PRINT ": ALTIMETER-. "; INT (ALTIMETER 

); 
700 IF ANG < THEN PRINT TAB( 19)360 

+ ANG;" DEG." 
710 . IF ANG > = THEN PRINT TAB( 19)A 

NG;" DEG." 
720 MR = INT (ALTIMETER / 30): IF MR > 2 

THEN MR = 20 
725 IF MR = THEN PRINT ">": GOTO 740 
730 PRINT ": "; LEFT$ (Q$,MR);">" 
740 PRINT "sFUEL : "; INT (FUEL) 
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750 PRINT ": ' 
L / 750));">" 

760 PRINT ": 

770 PRINT ":ELEVATION: 

2210: PRINT U$ 

780 IF UFLAG = 1 THEN 
)"> UNDERCARRIAGE DOWN < 

790 IF UFLAG = THEN 
)"> UNDERCARRIAGE UP < 



LEFT$ (Q$ s 20 - INT (FUE 



; EL ; 

PRINT 

PRINT 
. if 



IF CRASH = 
RETURN 



795 

800 

810 

820 

830 
OSUB 

840 
OSUB 

850 
OSUB 

860 
50 

870 
Y STRAIGHTEN 



1 THEN END 



REM 

REM 

IF 
980 

IF 
1070 

IF 
1160 

IF 



ASSIGN HORIZON/COMPASS 



ABS ( INT 



ABS 



ABS 



INT 



( INT 
( INT 
(WA + 



(WA 
(WA 
(WA 
.5) = THEN 



.5)) = 
.5)) = 
.5)) = 



REM NEXT TWO LINES USED TO 
3 WINGS 

> THEN WA = WA - 2 
< THEN WA = WA + .2 

> .2 THEN 1350 
= 1 TO 7 
Z) = A$(Z) 



. t? 

11 ; : GOSUB 

"; TAB( 5 

"; TAB( 6 

3 THEN G 

2 THEN G 

1 THEN G 

GOSUB 12 

GRADUALL 



880 IF WA 

890 IF WA 

900 IF WA 

910 FOR Z 

920 M$(8 - 

930 NEXT Z 

940 FOR Z = 1 TO 7 

950 A$(Z) = M$(Z) 

960 NEXT Z 

970 , GOTO 1350 

980 REM WA=3 OR -3 

990 A$(l) « " 

1000 A$(2) = " 

1010 A$(3) = " 

1020 A$(4) = » 

1030 A$(5) = " 

1040 A$(6) = " == 

1050 A$(7) = "== 

1060 RETURN 

1070 REM WA=2 OR WA=-2 
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1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 

) / 3 
1380 

15) / 
1390 
1400 
1410 
GOTO 
1420 

GOTO 
1430 

GOTO 
1440 



A$(l) 
A$(2) 
A$(3) 
A$(4) 
A$(5) 
A$(6) 
A$(7) 

RETURN 

REM WA=1 OR WA=-1 
A$(l) 
A$(2) 
A$(3) 
A$(4) 
A$(5) 
A$(6) 
A$(7) 

RETURN 

REM WA=0 
A$(l) 
A$(2) 
A$(3) 
A$(4) 
A$(5) 
A$(6) 
A$(7) 

RETURN 

REM ********************* 

REM ASSIGN COMPASS STRINGS 



F2 = ANG 
F2 < 



IF 
0) 
IF 
30) 
IF FA 

C$(l) = 

IF FA 
1450 
IF FA 
1450 

IF FA 
1450 
C$(2) = 



- Fl 
THEN 



FA = INT ((F2 + 375 
F2 > =0 THEN FA = INT ((F2 + 



FA 



= 12 THEN 
.N. 

11 THEN C$(2) 







THEN C$(2) = 

1 THEN C$(2) = 



.@: 



:@. 
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. @ : . . " 
(3) " 

o « • V- • 



1450 IF FA = 10 THEN C$(3) = " .@ : .. 

GOTO 1480 

1460 IF FA = 2 THEN C$(3) = " . . : @." 
GOTO 1480 

1470 C$(3) = " .. : . ." 

1480 IF FA = 9 THEN C$(4) = " W@-X — E" 
GOTO 1510 

1490 IF FA = 3 THEN C$(4) = " W— X-@E" 
GOTO 1510 

1500 C$(4) = " W— X— E" 

1510 IF FA = 8 THEN C$(5) = " .@ : .." 
GOTO 1540 

1520 IF FA = 4 THEN C$(5) = " 
GOTO 1540 

1530 C$(5) = " .. : .." 

1540 IF FA = 7 THEN C$(6) = " 
GOTO 1580 

1550 IF FA = 8 THEN C$(6) = " 
GOTO 1580 

1560 IF FA = 5 THEN C$(6) = " 

GOTO 1580 

1570 C$(6) = " ..:.." 

1580 C$(7) = " .S. " 

1590 IF ANG > 360 THEN ANG = ANG - 360 

1600 F2 = ANG 

1610 IF W > THEN W = W - .4 

1620 IF W < THEN W = W + .4 

1630 RETURN 

1640 REM STALL/FALL 

1650 IF STALL = - 1 THEN 1710 

1660 FOR J = 1 TO 10 

1670 PRINT TAB( J)"YOU HAVE STALLED!" 

1680 NEXT J 

1690 AI = AI / 4 

1700 RETURN 

1710 FOR J = 1 TO 10 

1720 PRINT TAB( J) "UNCONTROLLED DIVE!! 

1730 PRINT TAB( 21 - J)"PULL UP!!" 

1740 NEXT J 

1750 ALTIMETER = 4 * ALTIMETER / 5 

1760 RETURN 

1770 REM ******************** 
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1780 
1790 
1800 
1810 
M 25 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 

S 
1940 

,2140 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 



REM CRASH 
CRASH = 1 
ALTIMETER = 

M$ = "** *C R** A ** S* H* !!*": RE 
CHARACTERS LONG 

FOR J = 1 TO 20 

PRINT TAB( J) "CRASH!" 

PRINT TAB( 21 - J)"CRASH!" 

NEXT J 

FOR J = 1 TO 7 
G = INT ( RND (1) * 11) + 1 
A$(J) = MID$ (M$,G,14) 

NEXT J 

RETURN 

REM ^sjt^c***************** 

REM ADJUST HORIZON 
G$ = " ": REM 14 SPACE 

ON EV + 3 GOSUB 1960,2020,2070,2080 

RETURN 

REM EV=-2 

FOR J = 1 TO 4 
A$(J) = A$(J + 3) 

NEXT J 
A$(5) = G$sA$(6) = G$:A$(J) = G$ 

RETURN 

REM EV=-1 

FOR J = 1 TO 6 
A$(J) = A$(J + 1) 

NEXT J 
A$(7) = G$ 

RETURN : REM EV=0 

REM EV=1 

FOR J = 6 TO 1 STEP - 1 
A$(J + 1) = A$(J) 

NEXT J 
A$(l) = G$ 

RETURN 

REM EV=2 

FOR J = 4 TO 1 STEP - 1 
A$(J + 3) = A$(J) 

NEXT J 
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2180 A$(l) = G$:A$(2) = G$sA$(3) = G$ 
2190 RETURN 

REM ********************** 

REM INPUT INTO COMMAND NAME 

2220 U$ = " " 

2230 IF X$ = " » THEN U$ = "THROTTLE ON" 

IF X$ = "." THEN U$ = "THROTTLE OFF 



2200 
2210 



2240 



AND ALTIMETER > THEN 



'Q" AND ALTIMETER = THEN 



2270 
2280 
2290 
2300 
2310 
2320 
2330 



ft a tf 



THEN U$ 
THEN U$ 
THEN U$ 



"NOSE DOWN" 
"BANK LEFT" 
"BANK RIGHT" 



REM 



1 - 



2250 IF X$ = "Q" 
U$ = "CLIMB" 

2260 IF X$ = 
U$ = "NOSE UP" 
IF X$ = 
IF X$ = 
IF X$ = 
RETURN 
REM ********************* 

REM INITIALIZATION 
HOME 

2350 Q$ = " » 

1 CHARACTERS IN STRING 

2360 UFLAG = 1 : REM UNDERCARRIAGE - 
DOWN, - UP 

2370 EFLAG =-0: REM CLIMB RATE 

2380 ANG = 0:TAKE0V = 0:LA = 

2390 AI = 0: REM AIRSPEED 

2400 DIST = 0: REM DISTANCE COVERED 
GE 1 

2410 ALTIMETER = 

2420 EL = 0: REM ANGLE OF ELEVATION 

2430 WA = 0: REM 'WING ANGLE; USED IN HO 
RIZON PRINTOUT 

2440 FUEL = 750:CRASH = 0:F2 = 0:F1 = 0: 
REM FOR DIRECTION CHANGE/COMPA 
SS ROUTINE 

2450 CLOCK = 0: REM TIME 

2460 X$ = "" 

2470 RETURN 



'RAN 
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10 REM SPACE LANDING SIMULATION 

20 FLAG=INT <RND<VAL ( RIGHT* ( TI5, 2> ) > ) : REM 

RANDOMIZE 

3.0 REM ■^•■^■'^•■^■■^•^•^•■^••^■■^•■^••^•■^•■^•■^■^••^■^••^•^"^•■^■^••^■•^■■^•■^••^•■if"^- 

40 REM SET STARTING VALUES 

45 POKE 532S0,0:POKE 53281,0 

50 FUEL=200+RND < 1 > *40 

60 VELOCITY=RND<I)#20-6 

70 HEIGHT=500-RND< 1 >#10 

80 PRINT" 

{CLR>CWHT>" 

90 PRINT" FUEL" STAB < 12) ? " VELOCITY " I TAB i 

24) ; " HEIGHT" 

100 REM ■^•■^••^■•^■'%-H")?"^"X"^"^"^"^"^"^"^")f-^"^"^"M")f"^"^"M"^"M"^"^"^- 

110 REM MAJOR CYCLE 

120 GOSUB 430 

.130 IF FUEL<=0 THEN FUEL=0S THRUST=0S GOTO 

170 
140 GET AS 

150 IF A$><"0" OR ASs>"9" THEN 140 
160 THRUST=VAL<AS|5> + » 1 
170 FUEL=FUEL-THRUST 
180 FLAG=THRUST-2 
190 THRUST=0 

200 HEIGHT=HEIGHT+VELOCITY+FLAG/4 
210 VELOCITY=VELOCITY+FLAG 
220 IF HEIGHT<=10 THEN 240 
230 IF HEIGHT > 10 THEN 120 

240 IF V>EL0CITY>-9 AND VELOCITY<5 THEN 2 
90 
250 GOSUB 410 

250 
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260 PRINT "YOU HAVE CRASHED INTO THE SURF 

ACE. . . " 

270 IF HEIGHTX0 THEN HEIGHT=-HEIGHT 

280 GOTO 320 

290 GOSUB 4000 SPRINT "YOU HAVE LANDED SAF 

ELY ! " 

300 PRINT"YOUR SKILL RATING IS" INT (-1000 

#FUEL/ (VELOCITY-HEIGHT) ) 

310 HEIGHT=0 

320 GOSUB 410 

330 PRINT "FINAL INSTRUMENT READINGS 



WERE 
VELOCITY" STAB 



340 PRINT" FUEL"? TAB (12) 5 

(24) ? " HEIGHT" 

350 GOSUB 430 

360 GOSUB 410 

370 IF HEIGHT>=0 THEN END 

380 PRINT"NEW CRATER ON MOON" INT (ABS 

*<HEIGHT+.2> /3) ) / 100 "METERS DEEP! " 

390 PR I NT "YOUR SKILL RATING IS "INT( 

FUEL/ (VELOCITY-HEIGHT) ) 

400 END 

410 PRINT" 



( 1 00 
100* 



420 RETURN 

430 PR I NT I NT ( 1 00*FUEL ) / 100 % 

440 PRINT TAB (12) ? -INT ( 100*VELOCITY > 

5 

450 IF HEIGHT>=0 THEN PRINT TAB(24)| 

100*HEIGHT) /100 

460 IF HEIGHT<0 THEN PRINT 

470 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 



/ 100 
INT( 
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4110 FOR Ll=28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP 

4150 POKE SID+1,L1 

4160 NEXT LI 

4170 POKE SID+1,0 

4180 RETURN 
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MONTE CARLO DEMONSTRATION / Commodore 84 
version 

10 REM MONTE CARLO DEMONSTRATION 

20 GOSUE 3-70: REM INITIALISE 

30 REM *&#^#&&&^^##&####&##ftii.%.%. 

40 REM MAJOR CYCLE 

45 PRINT" 

{CLR}" 

50 GOSUB ] .0.0: REM PRINT 

60 IF P=EP AND Q=EQ THEM PRINT : PRINT "DEM 

ONSTRAT I ON OVER " : END 

70 GOSUE 230S REM GENERATE MOVE 

80 GOTO 50 

9.0 REM #*#####*#*#**##&% r *##*x**#* : £ 

100 REM PRINTOUT 

110 ASS < p , Q ) = h » 

120 M=M+l 

13.0 PRINT" 

{HOME* " SPRINT: PRINT 

1 4 P R I N T " M O V E " M 

150 FOR X=l TO 10 

160 FOR Y=l TO 1.0 

170 PRINTASCXj, Y) 5 " "5 

180 NEXT Y 

190 PRINT 

20.0 NEXT X 

210 RETURN 

220 REM ***#**##*##******#.£#.£.#.£.£.£.£ 

230 REM GENERATE MOVE 

24.0 A* ' P, Q> =•• . " 

250 G=0 

260 T= I NT < RND '■ 1 ) *4 ) + J. 

270 ON T GOSUB 310 s 320, 330 ? 340 

28.0 IF G=0 THEN 26.0 

290 IF G=.t AND RND ( 1 ) > . 5 THEN 260 

300 RETURN 

31.0 IF P>1 THEN P=P-i:G=G+l: RETURN 

320 IF P<10 THEN P=P+ 1 : G=G+ 1 : RETURN 

33.0 IF Q>1 THEN Q=Q~ 1 : G=G+ 1 : RETURN 

340 IF Q<1.0 THEN Q=0+ I : G=G+ 1 : RETURN 

35.0 RETURN 

360 REM **#*###**######*^.&.^.£.£.£.£.ft.£ 
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370 REM INITIALISE 

380 POKE 53280,0: POKE 53231 , 0: PRINT " 

CCLR>" 

390 X=RND'MAL<RIGHTS5(TISi,2> ) ) : REM 

RANDOMIZE 

400 DIM AS (10, 10) 

410 FOR X=l TO 10 

420 FOR Y=l TO 10 

430 AS(X, Y>=". " 

440 NEXT Y 

450 NEXT X 

460 PRINT: PRINT 

470 PR I NT "ENTER FIRST START CO-ORDINATE 

(LESS THAN 10)" 

480 INPUT P 

490 IF P< 1 OR P>10 THEM 480 

500 PRINT"ENTER SECOND START CO-ORDINATE 

(LESS THAN 10) " 
510 INPUT Q 

520 IF Q< 1 OR Q>10 THEN 510 
530 PR I NT: PR I NT 

540 PRINT"ENTER FIRST END CO-ORDINATE (L 
ESS THAN 10) " 
550 INPUT EP 

560 IF EP< 1 OR EP>10 THEN 550 
570 PRINT H ENTER SECOND END CO-ORDINATE ( 
LESS THAN 10)" 
580 INPUT EQ 

590 IF EGK1 OR E0>10 THEN 580 
600 A$ ( P , Q > = " O " 
610 A*(EP,EQ)="X" 
620 RETURN 
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10 REM SIMULTANEOUS EQUATIONS 

20 POKE 53280,0: POKE 53280, 0: PRINT " 

{CLR}" 

30 T = RNIW«'AL 'RIGHT* (T I*, 2) ) ) : REM 

RANDOMIZE 

40 HS=0 

50 FD=RND(0> 

60 PRINTS PR I NT "DEC AY FACTOR IS"FD 

70 GOSUB 550 

8.0 PRINT" 

<CLR>" 

90 PR I NT SPRINT 

100 PR I NT "ENTER NUMBER OF CELL X TO 

START (LESS THAN 40) " 
IJ.0 INPUT CP:IF CP<1 OR CP>39 THEN 11.0 
120 PRINT: PRINT 

130 PR I NT "WE HAVE"CP" X CELLS" 
140 PRINT: PRINT 
150 PR I NT "ENTER NUMBER OF CELL Y TO 

START (LESS THAN 40) " 
160 INPUT EPSIF EP<J OR EP>39 THEN 160 
170 PRINT " 

[clr}":print:primt"please stand by...« 
180 gosub 550 ."pr i nt" 

{CLR}" 

190 DA=1 

2.00 IF CP>EP/FD THEN CP=EP/FD 

210 PRINT" » 

215 IF IMT<CP)<0 THEN CP=0 

216 IF INT(EP><0 THEN EP=0 
220 PRINT "TIME ELAPSED:"DA 
230 PRINT INT(CP)"CELL X" 
240 PRINT INTfEP) "CELL Y" 

250 REM ^*^^*-5f-^^%^--^^-^.^.^.^-^.^.^.^.^.^.^.^,^.^.^. 

260 REM MAJOR CYCLE 

270 GOSUB 550 

280 DA=DA+1 

290 PRINT" " 

3.00 PRINT "TIME ELAPSED:" DA 

310 IF CP>EP/FD THEN CP=EP/FD 
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320 REM EQUATIONS FOLLOW? MODIFY PARTS 

OF THEM TO SEE WHAT HAPPENS 

330 CP=CP+ < <8#CP-CP*EP/3)*FD) 

340 EP=EP+ ( <8#EP-EP*CP/3)#.0.l> 

350 PRINT INT (CP) "CELL X" 

360 PRINT INT(EP) "CELL Y " 

370 IF EP<2 OR CP<2 THEN 410 

330 GOSUB 550 

390 GOTO 280 

400 RFM #*#*##*#####*#*##*##*■■*■■*#•#*■# 

410 IF DA>HS THEN HS=DA 

420 PRINTS PRINT 

430 PR I NT "YOUR CELL CLASH SIMULATION SUR 

VIVED" 

440 PRINT"FOR"DA"TIME PERIODS." 

450 PRINT" 

_____ H 

460 PR I NT "THE BEST SURVIVAL TIME SO FAR 

IS"HS 

470 GOSUB 550 

480 PRINT" 

_____« 

490 PR I NT "DO YOU WANT A NEW RUN <Y OR N) 

500 GET AS3 

510 IF A* < > " Y " AMD ASO *' N " THEN 500 

520 IF A*="Y" THEN PRINT " 

{CLR>"'. GOTO 60 

530 PR I NT "OK": PR I NT: PR I NT: END 

540 REM '#**###*#^#*#^#**#*###3H*- , *#"* 

550 FOR J=l TO 2000: NEXT 

560 RETURN 
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10 REM CONWAY'S LIFE SIMULATION 

2® REM DEFINED INITIAL COLONY 

30 GOSUB 46.0: REM INITIALISE 

40 REM *##*##########*#######•*■&•* 

50 REM MAJOR CYCLE 

60 GENERATIN=GENERATIN+1 

70 GOSUB 290: REM PRINTOUT 

80 GOSUBli0SREM EVOLVE 

90 GOTO 60 

100 REM #*#*#•£*#****#*##**-&-&•&-&•&•}£ 

110 REM EVOLVE 

120 FOR X = 2 TO 12 

130 FOR Y=2 TO 12 

140 C=0 

150 IF A*<X-1, Y-l >="X" THEN C=C+1 

160 IF AsMX~i 9 Y) = "X" THEN C = C + 1 

170 IF AS'X-1, Y+1)="X" THEN C=C+1 

130 IF AS(X,Y-1>= ,, X M THEN C = C + 1 

190 IF A*<X, Y+1)="X" THEN C = C + i 

200 IF A*(X+1 S Y-1)="X" THEN C=C + 1 

210 IF A*(X+1,Y)= H X" THEN C=C+1 

220 IF A$(X+1 j, Y+1)="X" THEN C=C + I 

230 IF A^MX, Y)="X" AND C<>2 AND C<>3 THE 

N B*(X, Y>=CHRSs(32) 

240 IF A*fX,Y)= M " AND C=3 THEN B$ ( X s Y > - 

I! V< I! 

250 NEXT Y 

260 NEXT X 

270 RETURN 

230 REM ****##*****#**##*##-#■£.&** 

290 REM PRINTOUT 

300 PRINT" 

CCLR>" 

310 PRINT 

320 PR I NTT AB (4) \ " GENERATION " GENERAT IN 

330 PRINT 

340 FOR X=2 TO 12 

350 FOR Y=2 TO 12 

360 ASMX, Y)=B*(X, Y) 

370 PRINT A=MX, Y) ; 

330 NEXT Y 
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390 FOR Y=12 TO 2 STEP -1 

400 PRINT A*CX,Y> J 

410 NEXT Y 

420 PRINT 

430 NEXT X 

440 RETURN 

450 REM ####*#*#****###*•*•*-■****■*•& 

460 REM INITIALISE 

470 POKE 53280,0: POKE 53281 , 0: PRINT " 

(CLRMPURV 

480 B=RND<\ML(RIGHTSMTI*,2) ) ) : REM 

RANDOMIZE 

500 DIM AS (13, 13), BS* (13, 13) 

510 PRINT-.PRINT" PLEASE STAND BY..." 

520 FOR X=l TO 13 

530 PRINT 14-X5 

540 FOR Y=l TO 13 

550 REM FILL ARRAY WITH BLANKS 

560 A* <X, Y) =CHRS(32) 

570 B*(X,Y*=AS<X,Y> 

580 NEXT Y 

590 NEXT X 

600 READ D:IF D=99 THEN 630 

610 READ E: AS<D,E)="X" :B$(D,E)="X" 

620 GOTO 600 

630 GENERATING 

640 RETURN 

650 DATA 5,5,5,9,6,6,6,8 

660 DATA 7,7 

670 DATA 3,6,8,8,9,5,9,9 

700 DATA 99 
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J 00 REM ROBOT LOGO 

110 GOSUB 1730; REM INITIALISE 

120 GOTO 490 

130 REM **#******##*%#**#*###**###*$. 

140 REM 

150 REM 

160 REM 

170 REM 

180 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

280 REM 

290 REM 

300 REM 

310 REM 

320 DATA "■*" 

330 REM ####***#*##***#**#*#^*#.£.H..K..ft 

340 REM INT UX,AX 

350 UX=INT<UX+.5> : AX=INT < AX+ . 5 ) 

360 RETURN 

370 REM *****#*******#******#*###*#■* 

380 REM PRINT OUT 

390 PRINT " 

CCLR> " 

400 PRINT"STEP"PSN" > " ; A* <PSN) : PRINT 

410 FOR J=l TO DEPTH 

420 FOR K=l TO BREATH 

430 PRINT Z*( J , K > ? 

440 NEXT K 

450 PRINT 

460 NEXT J 

470 RETURN 

480 REM *****#***#**####**#*******-**- 

490 REM READ PROGRAM 
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500 COUNT=COUNT+l 

510 READ ASM COUNT) 

520 IF AS (COUNT) = M *" THEN 550 

530 IF COUNT < 20 THEN 500 

540 REN *#**##***#**#*#*******#**■**# 

550 REM EXECUTE PROGRAM 

560 PSN=0*. REM PROGRAM STEP NUMBER 

570 PSN=PSN+i 

580 IF PSN=2i THEN 530: REM END 

590 FLAG=0 

600 M$=A*MPSN> 

610 IF M*="^" THEN 610; REM END 

620 N*=LEFT*(M5>,2> 

630 IF N*="ST H THEN 560: REM START AGAIN 

640 IF N*="PR" THEN GOSUB 380: REM PRIMTO 

UT 

650 IF N$3="FO" THEN FLAG=1 

660 IF N*="BA" THEN FLAG=2 

670 IF N*="TU" THEN FLAG=3 

680 IF Ns£="HO" THEN FLAG=4 

690 IF N35="CL" THEN FLAG=5 

700 IF N*="GO" THEN FLAG=6 

710 IF N35="RA" THEN FLAG=7 

720 IF N&="RE" THEN FLAG=8 

730 IF NS="EN" THEN FL.AG=9 

740 IF NS5="FA" THEM FLAG=10 

750 ON FLAG GOSUB 780,940,1000,1160,1220 

, 1260, 1400, 1460, 1530, 1580 

760 GOTO 570 

-770 R £M ^.£^.£.^#^#.&#^*^*#####.£-£-£.£ 

780 REM FORWARD 

790 M35=MID*<M*,4> 

300 IF ASC(M35>=87 THEM M*=MID$ ( M&, 6) 

310 FS3="F" 

320 NUM=VAL(M$> 

830 FOR E=l TO NUM 

840 IF UX<1 OR UX>DEPTH THEN 880 

850 IF AX<1 OR AX>BREATH THEN 830 

860 Z*(UX,AX)=T* 

330 IF FS5="F" THEM UX=UX + UP : AX=AX + AC 

390 IF F*="B" THEN UX=UX-UP : AX=AX-AC 

900 GOSUB 340 

910 NEXT E 
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920 RETURN 

940 REM BACK 

950 M53=MIDS<M3i, 4> 

960 IF ASC(M$>=78 THEN M*=MID$ ( M$, 3) 

970 F*="E" 

980 GOTO 820 

99.0 REM t("X'"X"X"Tv'X" ^"■X"'X'"X"X"'X"'X'''X" X'"X" X"X" X*'X*^'7r'X"'A*'X'"X"X"X" 

1000 REM TURN 

1010 MS=MID*fM* ? 4) 
1020 IF ASC<MS>=78 

NUM=VAL(M«) 

Y=INT( (NUM+17 

IF Y=-\0 OR Y=8 

FOR J=l TO Y 

IF UP=~1 AND 



THEN M*=MID*(Ms5,3) 



5> /45) 

THEN RETURN 

AC=0 THEN AC=l;GOTO 11 



IF UP=0 AND AC=1 THEN UP=l:GOTO 113 



IF UP=1 AND AC=0 THEN AC=-l:GOTO 11 



IF UP=0 AND AC = -1 THEN UP=-li:GOTO 1 



OR UP=1 AND AC=1 



1030 

1040 

1050 

1060 

1 070 

30 

1080 



1090 

30 

1 1 00 

130 

1110 IF UP=-1 AND AC=-1 

THEN AC=0;GOTO 1130 
1120 IF UP=-1 AND AC=1 OR UP=1 AND AC = -1 

THEN UP=0 
1130 NEXT J 
1 140 RETURN 

J 150 REM ##**********#**#*********-X-* 
1160 REM HOME 

1170 AX=INT( 'BREATH+.5) /2> 
1180 UX=IMT( (DEPTH+.5) /2) 

1190 up=-i : ac=0:rem faces up 

1200 RETURN 

1210 REM ^^^^^^^^^^^^^^^^^^^^^■jt"X"'X"'X"'X""X* 

1220 REM CLEAN 

1230 GOSUE 1870 

1240 RETURN 

1 2vD0 REM X" "X" 'X"'j("'!v 'X""X' X""j(" X"X" X" X" X"'}rvv' X" X"X"X 'X"X' 'X" X" 'X" X" "X 

1260 REM GO X,Y 

1270 P=0 

1280 P=P+1 
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J 290 IF MID*(M*,P,l)=" f fl THEN 1320 

1300 IF P<LEN(M$> THEN 1280 

131.0 RETURN: REM ERROR 

1320 UX=VAL <MIP*(MS5 S 4,P-1> ) 

1330 AX=VAL (RIGHT* <M*,LEN (MS) -P) ) 

1340 GOSUB 340 

1350 IF UX<1 OR UX>DEPTH THEN 1330 

1360 IF AC<1 OR AOBREATH THEN 1380 

1370 ZS(UX,AX)=R* 

1380 RETURN 

1390 REM ^^•^■^•■^••^•^■^■•^•■^■•^■^••^■^'^■■^"^••^•^■■^■'^■•^■^•■^•■^■■^^f 

1400 REM RANDOM 

1410 AX= I NT ( RND ( 1 > -fcBREATH ) 

1420 UX=IMT(RND( 1 >*DEPTH> 

1430 Z*(UX,AX>=RS 

1440 RETURN 

1450 REM ^^^^^^^■^•■^•^"•^■•^••^'■^•■^••^"^•^■■^•■)f - K*^f' - )? - ')f-^-H -- 5f 

1460 REM REPEAT 

1470 M*5=MIDSCM& ? 4> 

1430 IF ASC(MS)=69 THEN M*=MIDS ( M$, 5 ) 

1490 RECOUNT=VAL(M*> 

1500 MARKER=PSN 

1510 RETURN 

1520 REM *####***###******##**■#■##*#•#■ 

1530 REM END REPEAT 

1540 RECOUNT=RECOUNT-l 

1550 IF RECOUNT >0 THEN PSN=MARKER 

1560 RETURN 

1530 REM FACE 

1590 M*=MID*(M*,4> 

1600 IF ASC(M*)=69 THEN M«=MID$ ( MS , 3 ) 

1610 NUM=VAL<M*> 

1620 Y=INT( (NUM+17.5) /45>#45 

1630 IF Y=0 OR Y=360 THEN UP=-I:A€=0 

1640 IF Y=45 THEN UP=-lZAC=l 

1650 IF Y=90 THEN UP=0SAC=1 

1660 IF Y=135 THEN UP=l:AC=i 

1670 IF Y=180 THEN UP=l:AC=0 

1680 IF Y=225 THEN UP=1:AC=-1 

1690 IF Y=270 THEN UP=0:AC=-1 

1700 IF Y=315 THEN UP=- I : AC=-1 



3 710 RETURN 
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172.0 REM **##****###*****#*#**#-}Bf#*-& 

1730 REM INITIALISE 

174.0 POKE 53280,0: POKE 532S1 „ 01 PRINT " 

{CLRV 

1750 J=RND(VAL (RIGHTS (TIS, 2) ) ) : REM 

RANDOMIZE 

177.0 BREATH=4.0:REM CHARACTERS ACROSS 

1780 DEPTH=24:REM CHARACTERS DOWN 

179.0 BREATH=BREATH-1 

1800 DEPTH=DEPTH-3 

1810 UP=-l: AC=0SREM STARTS FACING UP 

1820 DIM AS (20): REM FOR ROBOT PROGRAM 

1830 DIM Z$(DEPTH, BREATH) : REM DISPLAY 

1840 T$="X":REM PUT SYMBOL HERE YOU 

WANT TO USE FOR ROBOT'S TRAIL 

1850 AX=0:UX=0 

I860 REM FILL ARRAY WITH SPACES 

1870 FOR J=l TO DEPTH 

1880 FOR K=l TO BREATH 

1890 7$ ( J ? K> =" " 

19.00 NEXT K 

19.10 NEXT I 

1920 RETURN 
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i 00 REM POINT-DUTY ROBOT 

110 GOSUB 1730: REM INITIALISE 

J 2.0 GOTO 49.0 

130 REM ###*#####**%####*#***####### 

140 REM 

150 REM 

160 REM 

170 REM 

130 REM 

190 REM 

200 REM 

210 REM 

220 REM 

230 REM 

240 REM 

250 REM 

260 REM 

270 REM 

230 REM 

290 REM 

300 REM 

310 REM 

320 DATA "*" 

330 REM ####*#####**############*■**■# 

340 REM INT UX S AX 

350 UX=INT ( UX+. 5) : AX=INT <AX+.5) 

36.0 RETURN 

490 REM READ PROGRAM 

500 COUNT=COUNT+l 

510 READ A^( COUNT) 

520 IF A^ (COUNT) ="#" THEN 550 

530 IF COUNT<20 THEN 500 

540 REM ^^*^#^^^^^^#-5f^^^^^^^#%^^##^ 

550 REM EXECUTE PROGRAM 

56.0 PSN=0:REM PROGRAM STEP NUMBER 

570 PSN-PSN+1 

580 IF PSM=21 THEN 58.0 : REM END 

590 FLAG=0 

60.0 M* = A*(PSN) 

610 IF M*= M *" THEN 6 10: REM END 
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620 
630 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 



NS==LEFTSMMS S 2) 
IF N£-="ST" THEM 
IF N*="FO" 

N$= " EA " 

N*5="TU" 

NS="HO" 

NS= " GO " 

NS= B RA" 

N3r = " RE " 

N*5="EN" 
jH|<a=— " p£ " 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
ON 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



560: REM START AGAIN 
FLAG=1 

r" i— rni \3 "*~ .t. 

FLAG=3 

FLAG=4 

FLAG=5 

FLAG=6 

FLAG=7 

FLA8=8 

FLAG=9 
FLAG GOSUB 780 ? 940 , 1 000 , 1 .1 60 s 1 260 
3 1400, ,1 460, 1 530 s 1580 
760 GOTO 57gf 

770 REM ####**##*#*#*#####*##***-*### 
780 REM FORWARD 
790 M5==MIDS5<MS.,4> 
800 IF ASC(M$>=87 THEN M$=MID$ ( MS, 6 ) 

81.0 p^fc=:"p" 

820 NUM=VAL(M55) 

830 FOR E=l TO MUM 

840 IF UX<1 OR UX>DEPTH THEN 880 

850 IF AX<1 OR AX>BREATH THEN 880 

860 GOSUB 2000 

880 IF F^-"F" THEM UX=UX+UP S AX=AX+AC 

890 IF F$="B" THEN UX=UX-UP : AX=AX-AC 

900 GOSUB 340 

910 NEXT E 

920 RETURN 

930 REM *******#*#**#***### #^**-*&#-5Hf 

940 REM BACK 

950 M3==MIB3MMS ? 4> 

960 IF ASC(M$0=75 THEN MS=MIBSM M* ? 3 > 

970 F^="B" 

980 GOTO 820 

990 REM *^^*#**#*#***#*#**#*#*#### 

1000 REM TURN 

1010 M*=MID*<M*,4) 

1020 IF ASC<M*)=78 THEN M*=MID* ( MS, 3 > 

1030 NUM=VAL'M*) 

1040 Y=INT ( (NUM+11 .25) /22.5) 

J 050 IF Y~0 OR Y=16 THEN RETURN 

1060 FOR 1=1 TO Y 
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1065 IF UP=-2 AND AC=0 OR UP=2 AND AC-2 

THEN AC= 1 : GOTO i 1 30 

1070 IF UP=-2 AND AC=1 THEN AC=2SG0T0 11 

30 

1075 IF UP=-2 AND AC = 2 OR UP=0 AND AC=~2 

THEN UP=~ I : GOTO 1 1 30 
1030 IF UP=-1 AND AC = 2 OR UP=1 AND AC=-2 

THEN UP=0:GOTO 1130 
1085 IF UP=0 AND AC = 2 OR UP=2 AND AC=-2 
THEM UP=l:GOTO 1130 

1090 IF UP=1 AND AC=2 THEM UP=2:GOTO 113 

1095 IF UP=2 AND AC = 1 THEN AC=0SGOTO 113 



1100 
30 
1 105 
130 
1110 
1 1 30 
1115 
1 1 30 
1 1 20 
.1 130 
1 1 40 
1 J 50 
1 1 60 
1 170 
1 1,80 
1 1 90 
1 200 
1210 
1220 
1230 
1240 
1250 
1260 
1 270 
1280 
.1 290 
1 300 
1310 
1320 



IF UP=2 AND AC=0 THEN AC=-lSGOTO 11 

IF UP=2 AND AC=-1 THEN AC=-2:G0T0 1 

IF UP=-1 AND AC = ~2 THEN UP=~2:GOTO 

IF UP=~2 AND AC=-2 THEN AC=-i:GOTO 

IF UP=-2 AND AC=-1 THEN AC=0 

NEXT J 

RETURN 

REM #*#*****#*******#******■&■$-■*■* 

REM HOME 

AX- I NT ( f BREATH +.5) /2) 

UX=INT < (DEPTH +.5) /2) 

UP=-2; AC=0:REM FACES UP 

RETURN 

REM ^"jf^"^^ M ~ K 1 •^"^•-^f •%"ffi"ffi - $ X ' X ¥: "X' '¥" M •^••^'•^••^••^•y-'fe' 

REM CLEAN 

GOSUE 1870 

RETURN 

REM ###*###########*########--JHf-# 

REM GO X,Y 

P=P+1 

IF MID*fM*,P, 1)= M , " THEN 1320 

IF P<LEN(M$5} THEN 1280 

RETURN: REM ERROR 

UX=VAL <MIUS(MS,4,P-1> ) 
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1330 AX=UAL 'RIGHT* <M* S LEN(M*> -P) ) 

1340 GOSUE 340 

J 350 IF UX<1 OR UX>DEPTH THEN 1380 

1360 IF AC<1 OR AOBREATH THEN 1380 

1370 GOSUE 2000 

1380 RETURN 

1390 REM ***#*##********##*#*#*-&■&•&-&-& 

1400 REM RANDOM 

1410 AX=INT(RND< 1 >*BREATH) 

1420 UX=INT<RND( 1>*DEPTH> 

1430 GOSUB 2000 

1440 RETURN 

1450 REM ##*******#***#******^###-&-?Hf 

1460 REM REPEAT 

1470 M*=MIDS5CM* P 4> 

1480 IF ASC<M$>=69 THEN MS=MID* ( M*, 5 ) 

1490 RECOUMT=VAL 'M*) 

1500 MARKER=PSN 

1510 RETURN 

1520 REM ***##*##*##*###*#*#######•£# 

1530 REM END REPEAT 

1540 RECOUNT=RECOUNT-l 

1550 IF RECOUNT >0 THEN PSN=MARKER 

1560 RETURN 

1570 REM ****#*#*##***##**#*#*##■*■£■*# 

1580 REM FACE 

1590 M$=MIDSMMS ? 4> 

1600 IF ASC«M3s>=69 THEN M$=MIP$ ( M$ 9 3 ) 

1610 NUM=VAL<MS5) 

1620 Y=INTMNUM+17.5)/45)*45 

1630 IF Y=0 OR Y=360 THEN UP=-2:AC=0 

1635 IF Y=22.5 THEN UP=-2SAC=1 

1640 IF Y=45 THEN UP=-2SAC=2 

1645 IF Y=67.5 THEN UP=-l:AC=2 

1650 IF Y=90 THEN UP=0:AC=2 

1655 IF Y=112.5 THEN UP=lSAC=2 

1660 IF Y=135 THEN UP=2SAC=2 

1665 IF Y=157.5 THEN UP=2:AC=1 

1670 IF Y=180 THEN UP=2SAC=0 

1675 IF Y-202.5 THEN UP=2SAC=-1 

1680 IF Y=225 THEN UP=2;AC=-2 

1685 IF Y=247.5 THEN UP=l:AC=~2 

J 690 IF Y = 270 THEN UP=0:AC = -2 



267 



Commodore 64 

1695 IF Y=292.5 THEN UP=- I : AC=-2 

1700" IF Y=315 THEN UP = -2SAC = -2 

1705 IF Y = 337.5 THEN UP=-2".AC = -1 

171.0 RETURN 

1720 REM *************************** 

1730 REM INITIALISE 

1740 PRINT " 

CCLR>" 

1750 J=RND(VAL( RIGHTS* <TI* S 2) ) ) : REM 

RANDOMIZE 

1770 BREATH=320:REM CHARACTERS ACROSS 

1780 DEPTH=200:REM CHARACTERS DOWN 

1790 BREATH-=BREATH~1 

1800 DEPTH=DEPTH-3 

1810 UP=-2: AC=0:REM STARTS FACING UP 

1S20 DIM A*M20>:REM FOR ROBOT PROGRAM 

1830 REM TURN ON HIRES SCREEN 

1840 BASE=2*4096:POKE 53272 , PEEK ( 53272 ) O 

R8 

1850 POKE 53265 , PEEK < 53265 ) 0R32 

1860 REM SET SCREEN TO CYAN AND BLACK 

1870 FOR I=BASE TO BASE + 7999 B . POKE I,fif:NE 

XT I 

1880 FOR 1=1024 TO 2023 SPOKE I ,3: NEXT I 

1920 RETURN 

2000 REM ****** SET A POINT ********* 

2010 R0W=INT(UX/8> 

2020 CHAR=INT<AX/8> 

2030 LINE=UXAND7 

2040 BIT=7- (AXAND7) 

2050 BYTE=BASE+ROW*320+CHAR*8+LINE 

2060 POKE B YTE , PEEK < BYTE ) 0R2 "BIT 

2070 RETURN 
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10 REM CONNECT FOUR 

20 REM A. W. PEARSON 

30 POKE 53280,0: POKE 53231 , 0% PRINT " 

(CLRHWHT}" 
40 PRINT 



50 ! 


=RINT 


60 1 


PRINT "CONNECT FOUR" 


70 S 


=RINT 


30 ! 


°RINT "ENTER YOUR MOVE AS A NUMBER 


TWEEM" 


90 1 

E" 

100 


=RINT "1 AND 3, ENTER FOR A NEW 


FOR F=l TO 1000S NEXT F 


110 


DIM A35< .10, 10> , B( 10,2) 


120 


FLAG=0 


130 


REM CHANGE NEXT LINE FOR YOUR OWN 




CHOICE OF SYMBOLS < CS-COMPUTER > 


j 40 


CS="M" : H*="0" SREM M FOR MACHINE! 


150 


FOR F=l TO 3 


160 


B(F,1)=6 


170 


NEXT F 


180 


FOR F=l TO 6 


190 


FOR G=l TO 8 


200 


AS ( F , G ) = " . " 


210 


NEXT G 


220 


NEXT F 


230 


REM ***#***#*#*##**##*#**■*#*#■•* 


240 


REM ACCEPT HUMAN MOVE 


250 


GOSUB 430 


260 


PR I NT SPRINT" 


{ PUR. > YOUR MOVE. . . " 


270 


INPUT AS PRINT" 


{ WHT > " I 


230 


IF A=0 THEN RUN 


290 


IF A<1 OR A>9 THEN 270 


300 


L=0 


310 


IF A$(L+1 } A)<>"." OR L=6 THEN 340 


320 


L=L+1 


330 


GOTO 310 


340 


IF L=0 THEM 270 


350 


ASML, A)=HS 






GAM 
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360 B(A,l)=B<A,i)-i 

37.0 GOSUB 430 

330 GOSUB 560 

390 GOSUB 430 

400 GOTO 260 

4 10 REM #******##**#**********#*•** 

420 REM PRINT BOARD 

430 PRINT" 

CCLR V 

440 FOR F=l TO 6 

450 FOR G=l TO 3 

460 PRINT A$(F,6); 

470 NEXT G 

430 PRINT 

490 NEXT F 

500 PRINT" I 2345673" 

510 PRINT 

520 IF FLAG=1 THEN PRINT"! HAVE WON": END 

530 RETURN 

540 REM #***#*#**#**#****####*#**-& 

550 REM COMPUTER MOVES 

560 PRINT "MY MOVE..." 

570 MV=0 

580 FOR F=J TO 8 

590 B(F ? 2>=0 

600 NEXT F 

610 FOR F=l TO 8 

620 FOR X=-l TO 1 

630 FOR Y=~l TO 1 

640 IF B(F ? 1)=0 THEN 630 

650 IF A£<B(F, 1 > +X 9 F + Y> = " " OR AS ( B ( F , 1 ) + 

X J F+Y)=". " THEN 630 

660 IF AS(B(F ? 1) +X S F+Y)=HS THEN GOSUB 31 



67.0 IF A$(BfFpl)+X,F + Y)=C$ THEN GOSUB 91 



630 NEXT Y 

690 NEXT X 

700 NEXT F 

710 P=0 

720 FOR F=l TO 3 

730 IF B!F,2)>P THEN P=B(F,2):N=F 

740 NEXT F 
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750 A9MB<N S 1 > ? N>=CS 

760 B<N, 1)=B(N, 1) -1 

770 p=0 

730 N=0 

790 RETURN 

800 REM *#**********##*#**#*##■■£•*#-#• 

810 MV=2 

320 M1=MV 

830 IF A55<B«F, 1 ) + <X*2> ,F+ < Y#2 > ) =H* THEN 

MV=MV+10 

840 IF A$(B(F 5 1 ) -X,F-Y)=H* THEN MV=MV+20 

850 IF MVOM1 + 10 THEN 870 

860 IF ASMBfF, 1 ) + <X*3) ? F+ <Y-£3> >=HS3 THEN 

MV=MV+t000 

870 B<F S 2>=B<F,2) +MV 

8S0 MI=0 

890 RETURN 

900 REM *****######*##*#***#*•#*•*■*#■ 

910 MV=2 

920 M1=MV 

930 IF A*<B<F, 1) + (X*2) ,F+ < Y#2 > ) =CS THEN 

MV=MV+9 

940 IF AS(B<F S 1) -X,F-Y)=C$ THEN MV=MV+20 

950 IF MVOM1+9 THEN 970 

960 IF A«(B(F, 1) + <X#3> , F + <Y*3) > =CS3 THEN 

M\,'=MV + 2000: FLAG=1 

970 B(F 5 2)=B(F,2) +MV 

980 RETURN 
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10 REM QUEVEDO CHESS MACHINE 

20 GOSUB 15.10S REM INITIALISE 

30 GOTO 60 

40 GOSUB 1320: REM PRINT BOARD 

50 GOSUB 1.10: REM COMPUTER MOVES 

60 GOSUB 1320 

7.0 GOSUB 11 20: REM ACCEPT HUMAN MOVE 

80 GOTO 40 

90 END 

100 REM ***■#*■■**#-**** 

110 REM COMPUTER MOVES 

120 IF QUIT=1 THEN 1080 

130 W1=MK 

140 REM ■#"3f"X ,- 3f , 3£ - X"?H£ - ■)$•■&■ •${•■}{■ 

150 REM MOVE ONE 

160 MOVE=l 

170 KM=TNT (BK/ 10) 

180 RM=INT<R/1.0) 

19.0 IF ABS(KM-RM>>3 THEN 330 

200 A(R)=46 

21.0 X=INT<BK/10) :Y=INT<R/i.0> 

220 IF X>Y THEM 270 

230 IF A<R-10)<>46 THEN 270 

240 IF A(R-19)=BK OR A(R-21)=BK OR A'R-2 

0>=BK THEN 270 

250 IF A(R-11)=BK OR A(R-9)=BK THEN 270 

26.0 R=R-10:GOTO 300 

270 IF A'R+10)<>46 THEN A(R)=R:GOTO 330 

280 IF A(R+19)=EK OR A(R+21)=BK OR A(R+2 

0>=BK THEN A<R)=RSGOTO 330 

290 R=R+10 

30.0 A ( R ) =ASC ( " R " ) 

310 RETURN 

320 REM #*■#■##*#■*■**■#■# 

330 REM MOVE TWO 

340 M0VE=2 

350 KM=BK-10#KM 

360 RM=R-10*RM 

370 IF ABS(KM-RM><2 THEM 480 

380 A(R)=46 

390 IF R>11 THEN IF (A(R-12)=BK OR A(R-2 
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)=BK OR A(R+8)=BK) THEM A(R)=R:GOTO 480 

400 IF R>il THEM IF fA'R-i>=BK OR A<R-li 

>=BK OR A(R+9)=BK) THEM A<R>=R:GOTO 480 

410 Y=BK-10*INT <BK/10) 

420 Z = R - 1 0# I MT ( R / 1 ) 

430 IF <7=1 OR Y>Z) AMD A(R+1)=46 THEM R 

=R+l:GOTO 450 

440 R=R-1 

450 A(R)=ASC ( "R" ) 

460 RETURN 

470 REM -*-£##■*######■* 

480 REM MOVE THREE 

490 MQVE=3 

500 W M = W K - 1 0* 1 M T ( W K / 1 ) 

510 BM=BK-10#INT (BK/10) 

520 IF ABS<UM~BM)<3 THEM 600 

530 IF A(WK-1><>46 OR A(WK-18)=BK OR A ( W 

K-2)=BK OR A(WK+8)=BK THEN 610 

540 IF A(WK-11)=BK OR A(WK+9)=BK OR A ( WK 

-22)=BK THEM 610 

550 A(WK)=46 

560 WK=WK-1 

570 A <WK) =ASC ( "K" > 

590 REM #**■$-•*•*#-*•*••&*#• 

600 REM MOVES FOUR, FIVE AMD SIX 

610 2 = ABS < I MT l BK / 1 ) - I NT ( MK / 10)) 

620 IF Z = £-> THEM 950 

630 IF 2*IMT(Z/2)=Z THEM 790 

640 REM *##■#•&■##•#-£#*••& 

650 REM MOVE FOUR 

660 MOVE=4 

670 A(R) =46 

680 IF A<R-10)<>46 THEM 720 

690 IF A(R-9)=BK OR A(R-11)=BK THEM 720 

700 IF A(R~19)=BK OR A<R-21>=BK OR A(R-2 

0>=BK THEM 720 

7 10 R=R- lfif; GOTO 760 

•720 IF A(R+10)<>46 THEN A<R^=R:GOTQ 790 

730 IF A<R+19)=BK OR A(R+21)=BK OR ACR+2 

0)=BK THEM A (R)=ASC < "R" ) : GOTO 790 

740 IF A<R+11)=BK 0RA<R+9)=BK THEM A -' R > 

=ASC ( "R" ) : GOTO 790 

750 R=R+10 
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760 A(R>=ASC < "R" > 

770 RETURN 

780 REM ■fc***"**-****** 

790 REM MOVE FIVE 

300 M0\'E = 5 

810 J=IMT<BK/10> 

820 K=BK-10#J 

830 L=INT'WK/10) 

84© M=WK J l€*#L 

850 7=10: IF J<L THEM Z = -10 

860 X=l:lF K<M THEN X=-l 

870 a < UK) =46 

880 Wt=WK 

890 WK=^K+Z+X 

900 G=ABS(UK-BK> 

9J0 IF C-i=l OR G=9 OR G=10 OR G=ll THEN W 

K=W 1 : A < WK > =75 : GOTO 950 

920 A I WK ) =ASC ( " K " ) 

930 RETURN 

940 REM #-JHf-*###-JHHf-## 

950 REM MOVE SIX 

960 M0VE=6 

970 A(R>=46 

980 IF R>ii THEN IF A<R-12>=BK OR A(R-2> 

=BK OR A(R + 8)=BK OR A(R-1X)R THEN 1070 

990 IF R>11 THEN IF <A<R-1)=BK OR A(R-1I 

)=BK OR A'R+9)=BK THEN 1070 

1000 Y=BK-10#INT <BK/10> 

1010 Z=R-10#INT{R/10> 

1020 IF (Z=t OR Y>2) AND A*R+1>=46 R=R+1 

:GOTO 1040 

1030 R=R-1 

1040 A<R>=ASC ("R'M 

1050 RETURN 

1060 REM •*#■#■■**■*■*•*'*#•#■*■ 

1070 GOSUB 1320 

1080 PR I NT SPRINT 

1090 PRINT" I CONCEDE TO THE MASTER" 

1100 END 

1110 REM #■&*■£*#*•*•*•■*•#■£ 

1120 REM ACCEPT HUMAN MOVE 

1130 REM ENTER '0' TO QUIT 

1140 MOV'E=0 
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1150 PRINT" >> MOVE TO (LETTER, NO.)"? 
1160 INPUT GS 
1170 IF G35="Q" THEN 1280 
1130 IF LEN(G*)<>2 THEN 1160 
1190 Z = ASC(G<£> 

1200 IF Z<65 AND Z>72 THEN 1160 
1210 X = VAL<RIGHT*<G*, JL) > 
1220 IF X<1 OR X>8 THEN 1160 
1230 A(BK)=46 
1240 BK=10*(Z~64> +X 

1250 IF A(BK)=ASC ( "R" ) THEN QUIT=i 
1260 A (BK)=ASC < "$" ) 
1270 RETURN 
1280 PRINT: PRINT 

1290 PR I NT "THANKS FOR THE GAME" 
1300 END 

1310 REM ##*#*-3Hfr#-3HHfr#- 
1320 REM PRINT BOARD 
1330 PRINT" 
<CLR>" 

1340 PR I NT: PR I NT 

1350 IF MOVE>0 THEN PRINT"! USED MOVE "MO 
VE 

1360 IF MOVE=0 THEN PRINT 
1370 PR INT: PR I NT 

1380 PRINT TAB* 11) J "ABCDEFGH" 
1390 FOR J=8 TO 1 STEP -1 
J 400 PRINT TAB '8)3 J; 
14 10 FOR K=10 TO 80 STEP 10 
1420 PRINT CHRSMA< J+K) ) 5 
1430 NEXT K 
1440 PRINT J 
1450 NEXT J 
1460 PRINT 

1470 PRINT TAB (11) 5 "ABCDEFGH" 
1480 PRINT: PRINT 
1490 RETURN 
1500 REM *#-JHBf **##■*■*•* 
1510 REM INITIALISATION 

1520 POKE 53230,0". POKE 53281 , 0: PRINT " 
<CLR>" 

1530 J=RND(VAL(RIGHT3s(TIS,2) ) ) : REM 
RANDOMIZE 
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154.0 MOVE=0 

1550 QUIT=0 

J 560 DIM A^l 3.0) 

1570 FOR J=10 TO 80 STEP 10 

1580 FOR K=l TO 8 

1590 A< J +K) =46: REM ASCII OF 

1600 NEXT K 

1610 NEXT J 

1620 REM ** PLACE PIECES ** 

1630 REM BLACK KING - HUMAN 

1 640 BK= I NT * RND < 1 ) *3 ) + 1 

1650 BK=10#BK+BK+INT(RND(1>*5> 

1660 A(BK)=ASC C'*- ) 

1670 REM WHITE KING - COMPUTER 

1680 WK=INT(RNB<l>#-4> +4 

1 690 WK = 1 0*WK + WK + I NT ( RND ( 1 ) * 2 ) 

1700 IF WK-BK THEN 1680 

1710 A(WK)=ASC < "K" ) 

1720 REM WHITE ROOK — COMPUTER 

1730 R=INT(RND< 1 > *4 ) +4 

j 740 R=10*R+R+INT <RND<1 >*2> 

1750 IF R=BK OR R=WK THEN 173.0 

1760 IF ABS<R-BKXi2 THEN 1730 

1770 A(R)=ASC ( "R" > 

1780 RETURN 
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iPJ REM WASHINGTON D.C. 

20 GOSUB 1.160: REM INITIALISE 

30 REM &^^^^^^^^&^^^#^^^#^#^^3HHf •& ■&■■£• 

40 REM MAJOR CYCLE 

50 P=INT <P + <P*273/ML> ) 

60 GOSUB 160: REM PRINTOUT 

70 GOSUB 510: REM CALCULATE 

30 REM NOW CHECK END GAME 

90 GOSUB 710: REM STANDARD OF LIVING 

100 GOSUB 780: REM INFLATION RATE 

110 GOSUB 840: REM UNEMPLOYMENT 

120 IF GAME=1 THEN PRINT" 

{CLRV :GOTO 890 

130 GOTO 50 

140 REM **#***###**#*#*##**-}B^***#-** 

150 REM PRINTOUT 

160 PRINT" 

{CLRMWHTV 

170 PRINT "PRESIDENT "5AS>?" :" 

180 PR I NT "YOUR ADMINISTRATION HAS BEEN I 

N POWER FOR "Y+2/4" YEARS" 

190 PRINT" 

ii 

200 PRINT"- STATE OF THE NATION --- 

H 

2.1.0 PRINT" 

220 PR I NT" POPULATIONS 

230 PR I NT "NO. UNEMPLOYED " INT (U) " "INTd 

00*U / P ) " % " 

240 PRINT"CURREMT WAGES $"WO" INFLATION" 

INT (IP) "%" 

250 PR I NT "GOVT. EXPENDITURE LAST QTR. SM 

"GE 

260 PRINT "UNEMPLOYMENT COST *M"INT(10*G 

U ) / 1 

270 PRINT "INCOME FROM TAXES $>M"INT<10*G 

I W 1 

280 PR I NT "BUDGET SURPLUS <+> /DEF I C IT <- ) * 

M" INT<BD*10> / 10 
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29.0 PRIMT"GROSS DOMESTIC PRODUCT *M"INT< 

GDP#10> t 1,0 

30.0 IF Y+Z/4>.5 THEM PRINT "CHANGE IN LIV 

IMG STANDARD "; 

305 IF Y + Z / 4 > . 5 THEN PR I NT I NT ( ( 2* ( ( RGDP / 

AGDP)#100) -100) /3> "%" 

31. PRINT" 

_ n 

320 PR I NT "PUBLIC INVESTMENT " Y " Q " Z "S5M" INT 

<IV*10> / 10 

330 PRINT" 

_ _ _ _ ii 

340 PRINT-OK, PRESIDENT M ; A*i M . . . " 

350 INPUT "ENTER GOVERNMENT SPENDING SM " 

; GE 

360 INPUT " 

{PUR5ENTER COST OF WAGES $M"?WN 

370 PRINT" IS YOUR ADMINISTRATION IN FAVO 

R OF" 

380 PRINT" IMMIGRATION THIS QUARTER 'Y/M> 

i WHT > " 

390 GET X* 

400 IF X3S<>"Y" AND X35<>"N" THEN 390 

410 PR I NT TAE ( 20 ) I " OK „ - . . " 5 X* 

420 FOR H=l TO 1000: NEXT H 

4 3.0 I F X $ < > " Y " THEN R E T U R N 

'4 40 PRINT " 

I PUR 3 HOW MANY IMMIGRANTS WILL YOU ALLOW 

INTO THE US" 
450 INPUT M SPRINT" 
{PUR J" J 

4 60 IF M<0 THEN 45.0 
470 P=P+M 
480 RETURN 

490 REM **##**#*##**##*******-**#*#■* 
500 REM CALCULATIONS 
510 C N=C N + ( C N* 1 P / 1 00 ) 

520 U=P#(GE + IV> / (CN*10) +P#( IP/ 10.00) 
530 GU=U*WN/ML:REM UNEMPLOYMENT COST 
540 g I = ( M P - U ) #WM# . 4 ) / ML ) I REM I NC ONE 

FROM TAXES 
550 ED=BD + GI -GU-GE:REM BUDGET DEFICIT 
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560 AGDps--AQDP#a+(IP / 1 0.0.0 ) ) 

570 GDP=GE + I V + ( '. P~U ) #WN / ML ) 

580 PGDP~GDP*440/AGDP 

"590 I P= < ( GE + I V > / C N* . 1 + ( WN / WO * / I 00 ) * 1 00 

600 I y>= ( C N*67 ) / ( I P* 1 P ) 

610 WO=MM 

620 Z=Z+i:lF Z>4 THEM Z=isY=Y+l 

630 RETURN 

640 REM *-********#*###*#*#*###■*•*■&** 

650 REM CHECK BUDGET DEFICIT 

660 IF BD> -10.00 THEM RETURN 

670 GAME=1 

680 FLAG=i 

690 RETURN 

700 REM #**#******#****#*##**#*-M--3£-3f-& 

710 REM CHECK STANDARD OF LIVING 

720 IF Y<.75 THEN RETURN 

730 IF INT ( {2#i <RGDP/AGDF)#I00> -100) /3) > 

-15 THEN RETURN 

740 GAME-1 

750 FLAG==2 

760 RETURN 

770 REM ********#***#%*##*•**#*##-&-¥-# 

780 REM CHECK INFLATION RATE 

790 IF IP<15 THEN RETURN 

800 GAME=1 

8 10 FLAG=3 

820 RETURN 

830 REM *-&#***#******#*#**#####**•&•* 

840 REM CHECK UNEMPLOYMENT 

850 IF INKUM00/PX15 THEN RETURN 

860 GAME=1 

870 FLAG=4 

880 RETURN 

890 REM *#*###*#****####***&###•&-&■*■& 

900 REM END OF THE GAME 

9 1 PR I NT " PRES I DENT " % A* ; " , YOUR " 

920 PRINT "ADMINISTRATION' 3 POOR ECONOMIC" 

930 PR I NT "PERFORMANCE HAS LED TO AN UNAC 

CEPTABLE" 

940 IF FLAG=1 THEN PR I NT "BUDGET DEFICET" 

950 IF FLAG=2 THEN PR I NT "DROP IN THE ST A 

MDARD OF LIVING" 
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960 IF FLAG=3 THEM PR I NT "RISE IN THE INF 

LATIOM RATE" 

970 IF FLAG=4 THEN PR I NT "RISE IN UNEMPLO 

YMENT " 

980 PRINT" AMONG OTHER THINGS..." 

990 PRINT" 

_„ H 

1000 PR I NT" THE LACK OF CONFIDENCE IN YOU 

R" 

J 010 PR I NT "ADM INI STRATI ON IS SO BAD THER 

E ARE" 

1020 PRINT"CALLS FOR YOU TO RESIGN... YOU 

STEP" 
1030 PRINT "ASIDE TO ALLOW THE VICE-PRESI 
DENT TO" 

1040 PRINT" OCCUPY THE OVAL OFFICE 
ii 

1050 FOR H-l TO 1000S NEXT H 

1060 PRINT"- 

■■ 

1070 PRINT"YOU WERE PRESIDENT FOR"Y+(Z*. 

25> "YEARS" 

1080 PRINT"DURING YOUR TERM OF OFFICE, T 

HE" 

1090 PR I NT "POPULATION ROSE BY"P-3*ML 

1100 PRINT "THE UNEMPLOYED RATE BECAME" IN 

T ( U# 1 000 / P ) /I " % " 

1110 PR I NT "AND THE INFLATION RATE BECAME 

" INT (IP*10> /10"%" 

1.120 PRINT"STANDARD OF LIVING CHANGED BY 

" I NT ( < 2* ( '. RGDP / AGDP > # 1 00 ) - 1 00 ) / 3 ) " % " 

1130 PR I NT "AND THE BUDGET SURPLUS /DEFIC I 

T WAS £M" INT(BD*10> / 10 

1 140 END 

1150 REM ##**###*#*#*#*#*##*#**--&#■#* 

1160 REM INITIALISE 

1170 POKE 53230,0: POKE 53281 , 01 PRINT " 

<CLR3 " 

1180 H=RND(VAL<RIGHT*<TI* ? 2) ) ) : REM 

RANDOMIZE 

1190 M L = 1 000* 1 000 

1200 P=3#ML:REM POPULATION 

1210 U=P/10:REM UNEMPLOYMENT 
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1220 IV=236:REM INVESTMENT 

123.0 6E=il8:REM GOVERNMENT EXPENDITURE 

1240 GU=0:REM cost of unemployment 
125.0 G 1=0: REM INCOME FROM TAXES 
1260 WN=100:REM NEW WAGES 
1270 WO=1.00:REM old wages 
1280 IP=5:REM INFLATION PERCENT 
1290 GDP=440:REM GROSS DOMESTIC PRODUCT 
1300 AGDP=440:REM BASE YEAR GDP 
1310 RGDP=440:REM REAL GDP 
1320 CN=354:REM ECONOMIC CONSTANT 
'USED THROUGHOUT SIMULATION) 
1330 Z=l : GAME=0: FLAG=0 
1340 Y=0:REM YEAR 

1350 PRINT "ENTER YOUR LAST NAME" 
1360 INPUT A* 
1370 RETURN 
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10 REM STOCK MARKET 

20 POKE 53280,0! POKE 5328 t , 0: PRINT " 

fCL R>" 

30 C = I NT ( RND ( VAL ' R I GHT* ' T I*. , 2 > > > > : REM 

RANDOMIZE 

40 DIM S < 5 ) , M ' 5 ) , P ( 5 ) , D ' 5 ) 

50 S ( 1 * = 1 . 49 : S ( 2 * = t . 99 : S ( 3 ) =2 . 49 : S ( 4 > =2 . 

99: S (5) =3. 49 

60 N ' 1 ) =2000 : N < 2 ) = 1 500 : N < 3 ) = 1 200 : N ( 4 ) = J 

00 :N (5^=800 

70 BB=265 : TV'= 1 5000 : Q0= 1 5000 : DAY== 1 

80 PR I NT SPRINT" 

{ PUR > ENTER YOUR GOAL FOR THIS SIMULATION 
■■ 

J 

90 PR I NTT AB <8) ; "$16,0.00 TO * 100, 000" 

100 INPUT GAL: REM INPUT GOAL 

110 IF GAL < 16000 THEN PRINT " 

<WHT>TOO LOW!" : GOTO 80 

120 IF GAL > 100*1000 THEN PRINT " 

<WHT>TOO HIGH!":GOTO 80 

130 REM #*####*#^###*##*-#--}HH<- 

140 REM MA TOR LOOP 

150 FOR C=l TO 5 

160 REM ADJUST THE 55 IN NEXT LINE TO 

MODIFY GAME? 80 VERY HARD, 30 VERY EASY 

1 70 D ( C ) = I NT < RND i 1 > * 55 ) +1 

180 P(C>=INT <RND< t >*( 100-D(C> > ) +1 

190 NEXT C 

200 GOSUE 230 

210 GOTO 460 

220 REM *******#*****■***•*•***•■* 

230 REM PRINTOUT 

240 PRINT" 

i CLRMWHTV 

250 PRINT" 



260 PR TNT "DAY "DAY" YOUR GOAL IS $ 

" GAL 

270 PRINT" 
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28.0 PRINT"COMPANY NUMBER:" 

290 PRINT TAE(2> ; i;TAB(9) ;2;TAE(i6) ;3;ta 

B(25) ? 4; TAB ( 35) ;5 

300 PRINT "CHANCE OF INCREASE (%):" 

310 PRINT TAB (2) ;P( 1) 5 TAB (9) ;P(2) 5 TAB (16 

) 5P(3) 5 TAB (25) |P(4) I TAB < 35 > ;P(5) 

320 PRINT "CHANCE OF DECREASE <%) : " 

330 PRINT TAB(2)!D(lMTAB(9)jD(2)iTAB(16 

) 5D(3) ? TAB < 25) JD(4) % TAB (35) ;D(5) 

340 PRINT"CURRENT VALUE PER SHARES" 

350 PRINT "S" ? INT <S < 1 )*100) / 100? TAB (8) ; " 

35 " ; I NT ( S ( 2 > * 1 00 > / 1 00 5 

360 PRINT TAB< 15) 5 "$" ; INT (S(3)#100) /100? 

TAB (23) 5 "*" ? INT (S(4)#.l#0> /100; 

370 PRINT TAB (30) ? "5>" 5 INT (S(4)*100) /100 

380 PRTNT M NO. OF SHARES HELD:" 

390 PRINT TAB (2) ?N( 1) 5 TAB (9) ?N(2) ? TAB ( 16 

) ?N(3) ?TAB(25> ?N(4) 5 TAB (35) ?M(5) 

400 PRINT "BANK S° INT'BB)" TOTAL WORTH S" 

INT ( i00*T\') / 100 

410 PRINT" 



420 IF TV>GAL THEN PRINT" YOU'VE HIT YOUR 

FINANCIAL GOAL!" : END 
430 RETURN 

440 REM *******#*#**#***-**-*■•** 
450 REM ** SELL ## 
460 PRINT" 

{PUR>DO YOU WANT TO SELL AMY SHARES (Y/N 
) ?" 

470 GET A* 

480 IF A*<>"Y" AND ASO"N" THEN 470 
490 IF AS="N" THEN 690 
500 GOSUB 230 
510 PRINT" 

{WHT5WHICH ONES TO SELL?"; 
520 GET A$ 

530 IF A$<"1" OR AS>"5" THEN 520 
540 C=VAL (A&> 
550 PRINT" 
<WHT> OK"C 
560 PRINT" 
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<PUR>HOW MANY OF"C"TO SELL" J 

570 INPUT N 

580 IF M>N(C) THEN PRINT" 

CWHT>YOU DON'T HAVE THAT MANY !": GOTO 570 

590 REM X X XX X X X X X X X' "X X - X K XX X "X X X 

600 REM ADJUST FIGURES AFTER SALE 

610 BB=BB+S(C)*N:REM ADD VALUE TO BANK 

620 N(C*=N<C)-N:REM SUBTRACT NO. SOLD 

630 TV=0:REM SET TOTAL WORTH TO ZERO 

640 REM NOW DETERMINE CURRENT WORTH 

650 FOR C=l TO 5 

660 TV=TV+N(C)*S(C> 

670 NEXT C 

6S0 tv=tv+bb:rem add in bank balance 

690 GOSUB 230 

700 REM #*#****#******#***### 

710 REM ** BUY ** 

720 PRINT " 

<PUR>DO YOU WANT TO BUY ANY SHARES (Y/N) 
<p ii 

730 GET A* 

■740 IF A33<>"Y" AND ASK 

750 IF A=5="N" THEN 890 

760 GOSUB 230 

770 PRINT" 

< PUR > WHICH COMPANV 

780 GET A* 

790 IF ASK " 1 " 

800 C=VAL'A35> 

810 PRINT" 

{WHT> OK"C 

820 PRINT" 

{ PUR > HOW MANY OF"C"TO BUY"; 

830 INPUT N 

840 IF N#S<C> > 

CWHTJYOU DON'T 

830 

850 REM ***"?f"»"^*******'K'**#**** 

860 REM ADJUST FIGURES AFTER BUY 

870 BB=BB-S^C)*N 

880 N(C>=N(C1 +N 

890 TV-0 



"N" THEN 730 



TO BUY?" 5 



OR A$>"5" THEN 780 



BE THEN PRINT" 
HAVE ENOUGH MONEY ! " : GOTO 
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900 FOR C=.l TO 5 

9J0 TV=TV+N(C)*S<C) 

920 NEXT C 

93.0 TV=TV+BB 

940 GOSUB 230 

950 REM *******#****###-*•*#-#-•*•*- 

960 REM MODIFY ALL INDICATORS 

970 TV=0 

980 FOR C=l TO 5 

990 K=INT(RND(i)*10J0>+l 

1000 IF K<P(C) THEN S<C>=S<C>#(1+(P(C>/1 

000) ) 

1 10 K=I NT < RMD t. I ) * 1 00 ) + J. 

1020 IF K<D(C) THEN S ( C > =S ( C ) / ( 1 + <P (C > / 1 

000) ) 

1 030 T V=T V + ' S < C ) ' *N ( C ) ) 

1040 NEXT C 

1050 TV=TV+BB 

1060 QG=QG!+1 

1070 W= <TV#-100/QQ) -100 

1080 IF W=0 THEN W=..t 

1090 W=W + 6 

1100 IF M< 1 THEN W=l 

iii.0 IF W>15 THEN W=15 

1120 RESTORE 

1130 FOR T=l TO M 

1 140 READ A$ 

1150 NEXT T 

1160 PRINT 

1170 REM **#-***#*#*******-*•-**•* 

1.180 REM GIVE RATING, START NEW ROUND 

119.0 PRINT" 

(WHTJYOUR RATING AFTER THAT ROUND OF" 

1200 PRINT "TRADING IS '"5 A*;"'" 

121.0 PRINT! PRINT " 

<PUR> < PRESS SPACEBAR TO CONTINUE > " 

1220 GET ZZ*>: IF ZZ*<>" " THEN 1220 

1230 DAY=DAY+1 

1240 GOTO 150 

1250 DATA "HOPELESS" , "VERY, VERY POOR" 

1260 DATA "TERRIBLE" , "AWFUL" , "BAD" 

1270 DATA "VERY ORDINARY "," AVERAGE " 



285 



Commodore 64 

1280 DATA "REASONABLE" , "A LITTLE ABOVE A 

VERAGE" 

1290 DATA "FAIRLY GOOD "," GOOD "," VERY GOO 

D" 

1300 DATA "GREAT" , "EXCELLENT" , "SUPERLATI 

v C.. 
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10 REM DETROIT CITY 

20 GOSUB 1640: REM INITIALISE 

30 GOTO 110 

40 MT=MT+l 

50 GOSUB 650 

60 IF TP>200 THEN 1560 

70 PRINT" 

{CYNJDO YOU WANT TO RESIGN ( Y/N) ?{ WHT J " 

S0 GOSUB 1010 

90 IF A35="Y" THEN PR I NT "OK, CHIEF" SEND 

100 GOSUB 1380 

110 GOSUB 650 

120 FOR T=l TO 1000: NEXT T 

130 GOSUB 350 

140 PRINT "DO YOU WANT TO EXPAND OUTPUT < 

Y / N > ? " 

150 GOSUB 1010 

160 IF A*="Y" THEN 1080 

170 IF SF=1 THEN 210 

180 PR I NT "DO YOU WANT TO SELL FACTORY 4 

( Y / N ) ? " 

190 GOSUB 1010 

200 IF A*="Y" THEN 1250 

210 GOSUB 650 

220 INPUT "HOW MANY EMPLOYEES TO HIRE"?H 

E 

230 NE=NE+HE: IF HE>0 THEN 260 

240 INPUT "HOW MANY EMPLOYEES TO FIRE" J H 

E 

250 NE=NE-HE 

260 GOSUB 650 

270 P1=AS:REM SET PI EQUAL TO OLD PRICE 

230 INPUT "WHAT IS YOUR SELLING PRICE" J A 

S 

290 REM NEXT LINE REJECTS TOO BIG A 

CHANGE IN SELLING PRICE 
300 IF ABS(Pl-AS) >2500 THEN PRINT"TOO BI 
G A CHANGE FOR THE MARKET": GOTO 280 
310 PRINT" 
{CLR}" 
320 PR I NT: PR I NT: PR I NT 
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33.0 MI = INT(RND< 1>#4000) +48*1 000: REM THIS 

MONTH'S SALES BY INDUSTRY 
340 C=C+i:REM COUNTS NUMBER OF MONTHS 
350 IF C<3 THEM 470 

360 M=INT(RND(1)#10+1) /4:REM INFLATION 
370 PRINT" 
CCLR>" 
330 PRINT" INFLATION RATE THIS QUARTER IS 

ii Kj ii e/ ii 

390 PR I NT "AVERAGE WAGES BILL WILL NOW RI 

SE TO" 

400 A W= < A W#M / i 00 ) + A W, 

410 PR I NTT ABO) ; "$ B INT (AW) " PER EMPLOYE 

E" 

420 GET ZZ*: IF ZZ*<> " " THEN 420 

430 PRINTSPRINTTAB< .12) ; "ANY KEY TO COMTI 

NUE " 

440 GET ZZSSIF ZZ*="" THEN 440 

450 FA= <FA*M/i00> +FA 

460 C~0 

470 Y' i)=NE*15/i2;REM SALES BASED ON 

NUMBER OF EMPLOYEES 
4S0 Y<2>= < 100-AS/FA)#MI/100SREM SALES 

BASED ON MONTHLY INDUSTRY SALES 
490 REM NEXT LINE SETS LOWEST FIGURE 

FROM Y ( JL* , Y(2) s M<5> EQUAL TO Y(3) 
500 I F Y ' I ? < Y ( 2 ) AND Y ( 1 ) < M < 5 ) THEN Y ( 3 ) 
=Y ( 1 > : GOTO 540 

510 IF Y ( 2 X Y ( 1 ) AND Y < 2 )< M ( 5 ) THEN Y • 3 ) 
=Y<2> ".GOTO 540 
520 Y<3)-M?5> 
530 REM NEXT LINES DETERMINE 

MONTHLY SALES 
540 IF ABS(Pi-AS)<501 THEN Y ( 3> =3 . 6#Y ( 3 ) 
73 

550 IF Y'3)>M<5) THEN Y ( 3 ) =Y ( 3) - 1975 : GOT 
O 550 

560 MC=<MC*M/100) +MC 
570 EF=Y(3) /M(5)*100SREM EFFECIENCY % 

AS SALES DIVIDED BY TOTAL OUTPUT 
580 AC= (MC*<ABS<85-EF) /3> / 100) +MC:REM 
AVERAGE COST PER VEHICLE 
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590 MP= ( < Y 1 3 ) * < AS-AC > > ~ ( NE*AW/ 12 ) ) : REM 

MONTHLY PROFIT 
600 MP= I NT ( MP / ( 1 00* i 000 ) ) 
610 TP=TP+MP/ifi*:REM TOTAL PROFIT 

IN MILLIONS 
620 M~0 
630 GOTO 40 

64.0 REM **************************** 
650 REM REPORT PRINTOUT 
660 PRINT" 
£CLR> " 

670 PRINT" INDUSTRY SALES"MI"IN MOMTH"MT 
680 IF MT>0 THEN PRINT"YOUR SALES: M INT (Y 
(3))" ( "INT<Y<3>*1000/MI> /10»% OF TOTAL 



690 PRINT" 



700 PR I NT "YOU NAME "ME "EMPLOYEES" 

710 PR I NT "AVERAGE WAGES ARE $"AW 

720 PR I NT " OR *M " I NT ( A W*NE / ( 1 00* 1 000 ) / 1 

2) / 10" PER MONTH" 

730 PR I NT " . _ _ 

■■ 

740 IF MT=0 THEN RETURN 

750 PR I NT "AVERAGE COST PER VEHICLE IS *" 

INT (AC) 

760 PR I NT "AND AVERAGE SELLING PRICE IS 35 

"INT (AS> 

770 PR I NT "SO THE AVERAGE PROFIT IS S"INT 

(AS-AO 

780 PR I NT " OR 35M " I NT < < AS- AC ) *Y < 3 ) / < 100*10 

00 ) ) / 10 " PER MONTH " 

790 PRINT" 

_ _ „.. »i 

800 PR I NT "PROF IT FOR THE MONTH IS *M M MP/ 

10 

810 PR I NT "8- TOTAL PROFIT TO DATE IS £M"I 

NT (TP*10> f l& 

820 PRINT" 

ii 

830 RETURN 

840 REM *************************#*# 
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850 REM MONTH REPORT 

360 PRINT" 

{CLR> " 

3-70 IF MT>0 THEM PRINT" YOUR MONTHLY SALE 

S ARE" INT (Y <3> > 

S80 PRINT" 

890 PRINT"MAXIMUM MONTHLY OUTPUT:" 
900 PRINT TAB (3) J "FACTORY 1 : " INT < M < 1 ) ) 
910 PRINT TAB (3) ? "FACTORY 2 : " INT < M < 2) } 
920 PRINT TAB (3> ; "FACTORY 3:"INT(MC3>> 
930 IF SF=i THEN 960 
940 PRINT TAB (3) ? "FACTORY 4: " INT CM (4) > 

950 PRINT" : 

_ ~. — •• 

960 PRINT "TOTAL OUTPUT IS " INT < M < 5 ) > 

970 PRINT" 

. _. H 

980 PRINT "EFFICIENCY LEVEL IS" INT (EF ) n % 
ii 

990 RETURN 

1000 REM ##^^*#*######*^*####### , £-3{--}Hfr i X- 

10.10 REM GET REPLIES 

1020 GET AS 

1030 IF A*<>"Y" AND A*<>"N" THEN 1020 

1040 PRINT TAB(22)?A* 

1050 FOR J=l TO 500: NEXT 3 

1060 RETURN 

1070 REM ####*#*#*###*#**##*#*##*#•#•)?■•# 

1080 REM INCREASE OUTPUT? 

1090 IF M(4)=0 THEN X=15:G0T0 1110 

1100 X=I3 

1110 PRINT" IT WILL COST $M " X " TO EXPAND" 

1120 PRINTTAB(S) ; "OUTPUT BY 1%" 

11 30 PRINT" 

_ ._ ii 

1140 PR I NT "HOW MANY % DO YOU WISH TO RAI 

SE OUTPUT" 

1150 INPUT EP:IF EP<0 OREPM00 THEN 1150 

1160 M( 5) =0 

1170 FOR T=l TO 4 

1180 M(T>=M(T> +M<T)*EP/100 

1190 M(5)=M(5) +M(T) 

290 



Commodore 64 



120.0 NEXT T 

1210 TP=TP-EP*X 

1220 FOR T = l TO 500: NEXT T 

123.0 GOTO 170 

1240 REM *#*###**#**#***#*#***#**-£■&-&•& 

1250 REM SALE OF FACTORY FOUR 

1260 PRINT "FACTORY FOUR IS VALUED FOR S 

ALE AT ftMi©4" 

1270 PR I NT "YOU CAN'T REBUY IT LATER IF 

YOU SELL IT. . . " 

1280 PR I NT "DO YOU WANT TO SELL (Y/N)?" 

1290 GOSUB 1010 

13.00 IF A*e="N" THEN 210 

1310 TP=TP+I04 

1320 SF=1 

1330 M j5> -M< 1) +M<2> +M<3) 

1340 M(4)=0 

1350 GOTO 170 

1360 REM **********#*##***#**#■&#*##*■* 

1370 REM CHECK ON LOSSES 

1330 IF MP>0 THEN SA=0:GOTO 1480 

1390 SA-SA+1 

1400 IF SA>11 THEN 1420 

1410 GOTO 1480 

1420 PRINT" 

£CLR}" SPRINT 

1430 PR I NT "YOU JUST MADE YOUR TWELTH MON 

THLY" 

1440 PRINT"LOSS IN A ROW 

■i 

1450 PRINTTAB<6) 5 "YOUR EMPLOYMENT" 

1460 PRINTTAB(6) J "IS HEREBY TERMINATED!! 
u 

1470 END 

1430 IF TP>=-250 THEN 1350 

1490 PRINT" 

{CLR1": PRINT 

1500 PR I NT "UNDER YOUR MANAGEMENT, THE CO 

MPANY HAS" 

1510 PRINT"LOST MORE THAN S5M250 ! " 

1520 GOTO 1450 

1530 IF TP>200 THEN 1570 

1540 RETURN 
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1550 REM &##**###***#*####***#*****■*•* 

1560 REM SWEET SWEET SUCCESS!!! 

1570 PRINT" 

(CLR}" : PR I NT 

1580 PRINT"WELL DONE! THE COMPANY HAS 

DE MORE" 

THAN S3M200. 



MA 



1590 PRINT" 

MADE" 

1600 PRINT" 



YOU'VE BEEN 



A MEMBER OF THE BOARD 



1610 
1620 
1630 
1640 
1660 



FOR 
END 
REM 
REM 



T=l TO 2000: NEXT T 



INITIALISE 
T=RND<VAL (RIGHTS CTI5>, 2) ) ) : REM 
RANDOMIZE 
1670 DIM M(5) , Y<5) 

1630 NE= 12000: REM STARTING NO EMPLOYEES 
1690 AW=22995:REM STARTING AVERAGE WAGE 
1700 AC=i 1100: REM COST PRICE/ VEHICLE 
1710 AS=12000:REM SELLING PRICE 
1 720 11 1 =50* 1 000 : MC = 1 1 00 
1730 Y (3) -12500 

i 740 MS = 25 : EF=77 : FA= 1 60 : SF=0 : MT=0 
1750 FOR J=l TO 5 
1760 READ M(J) 
1770 NEXT J 

1780 POKE 53280,0: POKE 53231 , 0". RETURN 
1790 DATA 8900,3250,2500,1625,16275 
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5 POKE 53280 9 SPOKE 53281 ,0 

10 REM GRIDIRON 

2.0 PRINT" 

CCLR}" 

30 X=RND(VAL (RIGHTS (TIS, 2) ) ) 2 REM 

RANDOMIZE 

40 GOSUB 70 

50 GOTO 220 

60 REM ##**#*#*#**#*###*##*#*# 

70 FOR X=I TO 15001 NEXT X 

80 RETURN 

90 REM **#****##*#*#%####*#### 

100 PRINT A$?SA 

110 PRINT BS?SB 

120 RETURN 

130 REM ##***#*#**%*#*%#**##**# 

140 IF Z$=A$ THEN Z*=F*: RETURN 

150 Z$=A$i: RETURN 

160 REM ##*######**#*##*####### 

170 GET ZZ«:IF ZZ33<>"" THEN 170 

180 PRINT" > PRESS ANY KEY < " 

190 GET ZZS.SIF ZZ$="" THEN 190 
200 PRINT TAB < 20) I "OK" : RETURN 
210 REM ***#*##***##***##**#*#* 
220 REM INITIALISE 
230 DEF FNA(X>=INT(RND<1)*X>+I 
240 PRINT" 

CWHTJQNE PLAYER OR TWO" 

250 INPUT X 

260 IF X<1 OR X>2 THEN 250 

270 IF X=l THEN VC=i : A3»= "SILICON COWBOYS 

" : GOTO 300 

280 PR I NT "WHAT IS THE NAME OF THE HOME T 

EAM" 

290 INPUT A*: IF AS3="" THEN 290 

300 PR I NT "AND WHAT IS THE NAME OF THE VI 

SITING TEAM" 

310 INPUT B$SIF B$="" THEN 310 

315 A95=" 

{ WHT > " + A* : BS5= " i PUR > " +BS» 

320 Z$=A$:NU=35 
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33.0 PRINT" 

tCLRy" 

340 PR I NT "THERE ARE" INT ( 10* < 60- ( W/4) ) ) / 1 

0" MI MUTES TO GO" 

350 PRINT TAB<8) iZ*" TO KICK OFF" 

360 PRINT" 

CWHTJYOU ARE ON YOUR OWN "NU" YARD LINE" 

370 IF ■ VC=1 AND ZS=A$ THEN GOSUB 70: GOTO 

400 
380 PRINT"TO KICK OFF,.." 
390 GOSUB 170 
400 A=FNA<20>+40 
410 PRINT Zs&S » HAVE..." 
420 FOR X=l TO A 

430 PRINT TAB (X/3) ; "KICKED "X" YARDS" 
440 NEXT X 
450 NU=NU+X 
460 GOSUB 70 
470 PRINT " 

{PUR>THE BALL IS CAUGHT!" 
480 GOSUB 70 
490 A=FMA(30)+10 
500 FOR X=l TO A 

510 PRINT TABCX/5) I "AND RETURNED " X " YARDS 
it 

520 NEXT X 

530 NU=ABS(100-NU+X) 

540 GOSUB 140 

550 PRINT" 

_____ ii 

560 PR I NT "THE BALL IS DOWN ON" 

570 PRINT Z^I " 'S"NU"YARD LINE" 

580 IF ZS5=A* AND V/C = l THEN GOSUB 70S GOTO 

600 

590 GOSUB 170 

600 TG=10SD=0:SL=NU 

610 IF W=60 OR W=180 THEN 2010 

620 IF W=120 THEN 2070 

630 IF W=240 THEN 2140 

640 PRINT" 

*CLR>" 

650 PRINTLEFTS»<A$ S 6> I SA? LEFT* ( B* 9 6) I SB 
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660 PRINT 

TO GO" 

670 GOSUB 70 

680 PRINT'*-- 

— — — _.•• 

690 PRINT 

700 PRINT 

710 PRINT 

720 PRINT" 



INT i 10#<60- (W/4) ) ) / 10 "MINUTES 



Z$" IN POSSESSION" 

TAB (4) ?D" DOWN" 

TAB (4) ?TG" YARDS TO GO" 



— _ _ _ H 

730 PR I NT "START AT "SL" YARD LINE" 

740 PR I NT "NOW ON "NU" YARD LINE" 

750 PRINT 100-NU"YARDS TO TOUCHDOWN" 

760 PRINT" 

_ — _ — ii 

770 PRINT "ON THIS PLAY "5 

780 IF 7$=A$ THEN PRINT A*?" CAN": GOTO 8 

00 

790 PRINT B35? " CAN" 

800 PRINT "EITHER 1 - THROW" 

810 PRINT" 2 - CARRY" 

820 PRINT" OR 3 - PUNT" 

830 P=0 

840 IF AS=Z* AND VC=1 AND D<3 THEN P=2:G 

OTO 900 

850 IF A$=Z95 AND VC = 1 AND TG<7 THEN P=2: 

GOTO 900 

860 IF AS3=Z$ AND VC=1 AND (100-NUX31 TH 

EN P=3SG0T0 900 

870 IF A33=Z* AND VC = 1 



THEN P=lSGOTO 900 
880 GET KSS IF K$< " 1 " OR K$>"3" THEN 880 
890 P=VAL<KS3) : PRINT TAB < 10) ? " OK "P 
900 GOSUB 70 
910 W=W+1 
920 PRINT" 
<CLR}" 

930 PRINT Z$5" s YOUR QUARTERBACK HAS" 
940 PRINTTAB(S) 5 "GOT THE BALL" 
950 PRINT" 



_ _ _. _ « 



960 PR I NT "WAIT FOR THE COUNT, "5Z$5"," 
970 PRINT TAB(8)J"THEN HIT ANY KEY..." 
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980 GET ZZS5:IF ZZS5<>" " THEN 980 

990 GOSUB 70 

1.000 GOSUB 2200 

1010 IF E=ll THEN 2340 

1 020 PRINT" 



1030 ON P GOTO 1050,1310,1590 

1040 REM #*#####*#############■£# 

1050 PR I NT "YOU'VE THROWN "E*5" YARDS" 

1060 PRINT"AND THE PLAY IS..." 

1070 A=FNA(8) 

1080 IF A=l THEN 1520 

1090 A=FNA<E+1) 

1100 IF A=i THEN PRINTTABC20) ? " . . „ COMPLE 

TE":GOTO 1220 

1110 PRINT TAB (20) ;"... INCOMPLETE" :D=D+1 

1120 GOSUB 170 

11 30 PRINT" 



1140 IF D>3 THEN 1160 

1150 GOTO 610 

1160 PR I NT "THAT WAS YOUR 4TH DOWN" 

1170 PRINT"AND YOU'VE LOST POSSESSION!" 

1180 D=0STG=10SMU=ABS<I00-NU) : SL=NU 

1 1 90 GOSUB 70 

1200 GOSUB 140 

1210 GOTO 610 

1220 GOSUB 170 

1230 NU=MU+ <E#5> °» TG=TG- <E*5) 

1240 IF NU>100 THEN 1800 

1250 IF TG<1 THEN 1280 

1260 D=D+l:lF D>3 THEN 1160 

1270 GOTO 610 

1280 D=0:TG=10SSL=NU 

1290 GOTO 610 

1300 REM ####*****#***#*#***-X-#*# 

1310 A=FNA(15) 

1320 IF A=l THEN 1510 

1330 E=A-5 

1340 IF E<0 THEN 1440 

1350 IF E=0 THEN E=l:GOTO 1370 

1360 PR I NT" GOOD SNAP, PASS AND RUN" 

1370 PR I NT "YOU'VE GA I NED "E "YARDS" 
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1380 GOSUB 170 

1390 tg=tg-e:nu=abs<nu+e> :d=d+i 

1400 IF MU>100 THEN 1800 

1410 IF TG<1 THEN 1280 

1420 IF D>3 THEN 1160 

1430 GOTO 610 

1440 PR I NT "GREAT RUNNING BY THE OPPOSITI 

ON HAS" 

1450 PRINT"CAUSED YOU TO LOSE" ABS < E) " YAR 

DS" 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1 560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 



tg=tg-e: nu=nu+es d=d+i 

GOSUB 170 

IF D>3 THEN 1160 

GOTO 610 

REM #**#*************#*#*** 

PR I NT " BAD SNAP . . . YOU ' VE " 

PR I NT" FUMBLED . . .AND" 

pr i nt "you've lost possession, 
nu=100-nu:d=0stg=10:sl=nu 

REM *#**#*#######**####*# 

GOSUB 170 

GOTO 460 

REM #*#******#****#***#*##* 

PRINT"NICE PUNT. . . " 

PRINT"YOU' VE KICKED"E*4"YARDS 

NU=NU+E#4 

IF NU>100 THEN 1650 

PRINT" 



1640 GOTO 460 

1650 A=FNA(3) 

1660 IF A>1 THEN 1740 

1670 PRINT"BUT YOU'VE MISSED THE GOAL!!" 

1680 IF NU-E#4<80 THEN NU=ABS ( 100- ( NU-E* 

4) > SGOTO 1700 

1690 NU=20 

1700 D=0STG=10:SL=NU 

1710 GOSUB 140 

1720 GOSUB 170 

1730 GOTO 610 

1740 PRINT" . .... . . . . . AND SCORED!" 

1750 IF Z3s=B$ THEN SB=SB + 3:G0T0 1770 

1760 SA=SA+3 
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1770 GOSUB 100 

1780 GOSUB 170 

1790 NU=35:GOTO 330 

1800 PRINT" 

{CLR}" : GOSUB 4000 

1810 FOR X=l TO 5 

1820 PRINTTAB(X*2> ? "TOUCHDOWN! ! ! " 

1830 NEXT X 

1840 IF Z*=A35 THEN SA=SA+6:G0T0 1860 

1850 SB=SB+6 

1860 GOSUB 100 

1870 PRINT"TO PLAY FOR EXTRA POINT" 

1880 GOSUB 170 



1900 


PRINT "THE BALL IS SNAPPED. -. PREPAR 


E TO 


KICK! " 


1910 


GOSUB 70 


1920 


GOSUB 2200 


1930 


IF E>9 THEN PRINT "YOU MISSED" : NU=20 


:GOTO 1970 


1940 


PRINT "YOU SCORED. .." S NU=35 


1950 


IF Z3»=AS5 THEM SA=SA+l:GOTO 1980 


1960 


SB=SB+l2GOTO 1980 


1970 


GOSUB 140 


1980 


GOSUB 100 


1990 


GOSUB 170 


2000 


GOTO 330 


2010 


FOR X=l TO 10 


2020 


PRINT TAB < 2#X >? "PERIOD OVER" 


2030 


NEXT X 


2040 


GOSUB 100 


2050 


GOSUB 170 


2060 


GOTO660 


2070 


FOR X=i TO 10 


2080 


PRINT TAB < 2*X )? "HALF TIME" 


2090 


NEXT X 


2100 


GOSUB 100 


2110 


Z$=B$ 


2120 


GOSUB 170 


2130 


NU=35SW=W+2SG0T0 330 


2140 


FOR X=l TO 10 


2150 


PRINT TAB<2*X> I "GAME OVER" 
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216.0 NEXT X 

2170 GOSUB 100 

2180 END 

2190 REM *#**#**##******■**■*###** 

2200 E=0:X=10 

2210 IF Z*=AS AND VC=1 THEN PRINT"THIS O 

NE FOR " 5 A*: QOTO2290 

2220 E=E+1;X=X-1 

2230 PRINT TAB(E) ?E 

2240 FOR Y=l TO X*1.5 

2250 GET ZZSSSIF ZZ5K> " '« THEN Y=X#1.5+l:R 

ETURN 

2260 NEXT Y 

IF E=ll THEN RETURN 

GOTO 2220 

FOR E=l TO FNA<7)+2 

FOR J=l TO 60: NEXT J 

PRINT TAB(E) ;E 

NEXT E 

RETURN 

PR I NT "TOO LATE! " 

PR I NT "YOU'VE BEEN SACKED!" 

E=FNA(4) 

IF E=3 THEN 2430 

PR I NT "AND LOST FIVE YARDS!" 

TG=TG+5:D=D+lSNU=NU-5 

GOSUB 170 

IF D>3 THEN 1160 

GOTO 610 

PRINT"AND LOST POSSESSION!" 

D=0: NU=ABS ( 100-NU + 5) : SL=NUS TG=10 

GOSUB 170 



2270 

2280 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 



GOSUB 140 

GOTO 610 

SID=54272 

FOR L1=0 TO 23 

POKE SID+L1,0 

NEXT LI 

POKE SID+24, 15 

POKE SID+5, 15 

POKE SID+6,255 

POKE SID+4, 17 

FOR Ll=48 TO 220 



STEP 
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409.0 POKE SID+1.L1 

4100 NEXT LI 

4110 FOR Li =28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1,L1 

4160 NEXT LI 

4170 POKE SID+1,0 

4180 RETURN 
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10 REM TENNIS 

20 POKE 53280,0: POKE 53281 , 0: PRINT " 

CCLR>" 

30 D=RND(VAL (RIGHTS iJl& 9 2) ) ) : REM 

RANDOMIZE 

40 aa=0:bb=0:t=0:ka=0 

50 XA=0: YA=0:ZA=0 

60 XB=0 : YB=0 : ZB=0 

70 DEF FNA(X>=INT(RND(1>*X> +1 

80 INPUT "ONE HUMAN PLAYER OR TWO"; A 

90 IF A<1 OR A>2 THEN 80 

100 IF A=l THEN A$="BJORNX" : VC = 1 

110 IF VC=1 THEN 160 

120 PRINT"PLEASE ENTER SIX-LETTER NAME" 

130 INPUT "NAME OF FIRST PLAYER" J A* 

140 IF LEN<A35)<6 THEN A$=A* + CHR35 ( 32 ) : GOT 

O 140 

150 A$=LEFT«<A«,6> 

160 INPUT "NAME OF SECOND PLAYER "SB* 

170 IF LEN(B*)<6 THEN Bi£=B$ + CHR$ (32) : GOT 

O 170 

180 B*=LEFT$( 635,6) 

190 s=i:aa=i:bb=i 

200 PRINT" 

CCLR}" 

205 AS= M 

€PUP3 " + A$: BS=" CWHT> " + B$ 



210 
220 
230 
240 
250 
260 
270 
280 



P=&=A«>SR3s=B35 , 

REM #**********#****##*#####**#*##* 

IF PS=A$ THEN R*=B* 

IF PSs=B35 THEN R35=A$ 

PRINTPS? " SERVING" 



PR I NT "DO YOU WANT TO SERVE 

PRINT" OR 

IF P$=AS5 AND VC=1 AND SC=0 

:gosub 1720; goto 330 

290 if ps>=as5 and vc = 1 

:gosub 1 720 : goto 330 

300 GET K$ 

310 IF K$<"1" OR K*>"2" THEN 300 

320 KB=VAL(K3s> 



1 - FAST" 

2 - SLOW" 
THEN KB=1 



AMD SC=1 THEN KB=2 
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330 PRINT". PRINTTAB<6) J KB? TAB (10) 5 " > IT'S 

A " ? 
340 IF KB=1 THEN PR I NT "FAST"? 
350 IF KB=2 THEN PRINT"SLOW" 5 
360 PRINT" SERVE..." 
370 GOSUB 1720 

380 IF KB=1 THEN EB=FNA ( 3) : GOTO 400 
390 EB=FNA<8) 
400 IF EB=1 THEN 450 
410 IF EB=3 AND SC=0 THEN 520 
420 IF EB=3 AND SC = 1 THEN 590 
430 GOTO 670 

440 REN **#*#*#****#******************* 
450 PRINT" 

{CLR>" : PRINTS GOSUB 4000 
460 PRINT TAB (8) ; " . . . . ACE. . . . " 
470 GOSUB 1720 
480 SC=0 

490 IF PS=A* THEN 1140 
500 GOTO 1150 

510 REN *##*###********##************** 
520 PRINT" 
<CLR}" SPRINT 

530 PRINT TAB (12) ? " . . . .OUT. . . . " 
540 PRINT TAB (8) 1 ".. .SECOND SERVE..." 
550 GOSUB 1720 
560 SC=1 
570 GOTO 230 

580 REM *##***##*******##************** 
590 PRINT" 
{CLR>" '.PRINT 

600 PRINT TAB (12)?" OUT " 

610 PRINT TAB ( 8) ?".. .DOUBLE FAULT..." 

620 GOSUB 1720 

630 SC=0 

640 IF PS=A95 THEN 1150 

650 GOTO 1140 

660 REM *#**#************************** 

670 SC=0 

680 PRINT" 

{CLR}" SPRINT 

690 GET ZZ5>:IF ZZ*<>"" THEN 690 
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700 PRINTRS?% THE BALL IS" : PRINT" IN YOU 
R COURT" 

710 PRINT" .. 

720 IF RSE=AS AND VC=1 THEN 750 

730 PRINT "HIT ANY KEY, WHEN YOU SEE THE 

ZER0 * TO RETURN THE BALL..." 

740 GET ZZS: IF Z2$<>"» THEN 740 

750 X=4*FNA<3> :Y=X 

760 GOSUB 1720 

770 E=5 

7S0 PRINTTAB<2*(11-E> > |E 

790 Y=Y-1 

800 GET S$ 

810 IF S$<>"" AND E=0 THEN 890 

820 IF S3s<>"» THEN 990 

330 IF Y>0 THEN 790 

840 E=E-1SY=X 

850 IF E<-1 THEN 990 

860 IF E=-l AND Rs?s=A$ AND VC=1 THEN 890 

870 GOTO 780 

880 IF KB=1 THEN EA=FNA ( 2) : GOTO 1000 

890 EA=FNA<4> 

900 IF E=0 AND R$=A35 AND VC = 1 THEN EA=FN 

A<8) 

910 IF EA=1 THEN 940 

920 IF R$=A$ THEN R$=B$:GOTO 670 

930 R33=A$SGOTO 670 

940 PRINTR*;", YOU'VE HIT THE BALL" 

950 PRINT TAB<8>5"OUT OF PLAY..." 

960 GOSUB 1720 

970 IF RS=A35 THEN R$=B$3SGOTO 1150 

980 GOTO 1140 

990 EA=FNA(4) 

1000 IF EA=1 THEN 1070 

1010 PRINT"YOU NISSED THE BALL, AND..." 

1020 GOSUB 1720 

1030 PRINT" IT WAS IN... BAD MISTAKE" 

1040 GOSUB 1720 

1050 IF R$=AS5 THEN RS5=BS5: GOTO 1140 

1060 GOTO 1140 

1070 PRINT"YOU MISSED THE BALL AND..." 

1080 GOSUB 1720 
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1090 PRIMT"IT WAS OUT... WELL LEFT" 

1100 GOSUB 1720 

1110 IF R35=A$ THEN R«=B*:GOTO 1140 

1120 GOTO 1150 

1130 REM ##**###***#*#*##*#*******#**** 

1140 aa=aa+i:goto 1160 

1150 BB=BB+1 

1160 IF AA<5 AND BB<5 THEN 1230 

1170 IF (BB>4 AMD AA<4) OR (BB>4 AMD BB- 

AA>1) THEN AA=lSBB=lSGOTO 1500 

1180 IF (AA>4 AND BB<4> OR <AA>4 AMD AA~ 

BB>1) THEN AA=1 SBB=i S GOTO 1440 

1190 IF AA>4 AMD AA>BB THEN CS="ADV"SD$= 

" ":GOTO 1320 

1200 IF BB>4 AND BB>AA THEN D$= " ADV" S C£= 

" " :GOTO 1320 

1210 C*=" (DEUCE ":D*=" (DEUCE" % GOTO 1320 

1220 REM *^***^**^^-*#***** J K-^^-^-*-K--^*-^-)r-K-*^- 

1230 RESTORE 

1240 FOR D=l TO AA 

1250 READ CS 

1260 NEXT D 

1270 RESTORE 

1280 FOR D=l TO BB 

1290 READ D* 

1300 NEXT D 

1310 REM ##**##*#**####*##*#*##**#*#*#*- 

1320 PRINT" 

{CLR}" 

1 330 PRINT" " 

1340 PRINT" SET SET SET" 

1 350 PRINT" " 

1360 PRINT" 12 3 GAME" 

1370 PRINT A*?" "?XA?" " ?YA?" "?ZA?" " 

;c$ 

1380 PRINT BS5? " "?XB|" " ?YB;" "?ZB?" " 
? D* 

1 390 PRINT" " 

1400 GOSUB 1720 

1410 IF TOl THEN 230 

1420 END 

1430 REM #***#*#####**#*#**##*##**#•**#-* 
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144.0 PRINT" 

<CLR>" 

1450 PR I NT "GAME TO " % A$ 

1460 GOSUB 1720 

1470 IF S=l THEN XA=XA+ 1 : C$= "0" : DS5=»0" : G 

OTO 1560 

1480 IF S=2 THEN YA=YA+ 1 • C*= "0" : D$= "0" : G 

OTO 1580 

1490 IF. S=3 THEN ZA=2A+1:C$="J3":D*="0":G 

OTO 1600 

1500 PRINT" 

<CLR>" 

1510 PR I NT "GAME TO " ; B* 

1520 GCSUB 1720 

1530 IF 3=1 THEN XB=XB+ 1 : C35= "0" : D$= "0" : G 

OTO 1560 

1540 IF S=2 THEN YB=YB+ 1 : C5»= "0" • D*= "0" : G 

OTO 1580 

1550 IF S=3 THEN 2B=2B+ 1 : C$= "0" • D$= "0" • G 

OTO 1600 

1560 IF <XA>5 AND XB<5) OR (XA<5 AND XB> 

5) THEN 1630 

1570 IF (XA>5 AND XA-XB>1) OR «XA>5 AND 

XB-XA>1> THEN 1630 

1580 IF (YA>5 AND YB<5) OR (YA<5 AND YB> 

5) THEN 1630 

1590 IF (YA>5 AMD YA-YB>1) OR (YA>5 AND 

YB-YAM) THEN 1630 

1600 IF (2A>5 AND ZB<5) OR (2A<5 AND 2B> 

5) THEN 1680 

1610 IF <ZA>5 AND ZA-ZB>1> OR (ZA>5 AND 

ZB~ZA>1> THEN 1680 

1620 GOTO 1640 

1630 S=S+1 

1640 AA=i:BB=l 

1650 IF P35=A$ THEN R*=A^S P«=B*S GOTO 1320 

1660 P$=A$:R$=BS:G0T0 1320 

1670 REM **#tt#*****#**#####4Hf*#****#*-8-# 

1680 T=l 

1690 GOTO 1320 

1700 REM *#*#****####**#*##**######**#.a. 

1710 REM DELAY 
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1720 FOR M=l TO 1.000: NEXT M 

1730 RETURN 

1740 DATA "0", "15", "30", "40" 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5,15 

4060 POKE SID+6,255 

4070 POKE SID+4,17 

4080 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1,L1 

4100 NEXT LI 

4110 FOR LI =28 TO 200 

4120 POKE SID+i,Ll 

4130 NEXT LI 

4140 FOR LI =200 TO 28 STEP -1 

4150 POKE SID+1,L1 

4160 NEXT LI 

4170 POKE SID+1,0 

4180 RETURN 
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10 REM GRAND PRIX 

20 GOSUB 2200". REM INITIALISE 

30 GOSUB 1190: REM CHOOSE TRACK 

40 REM ##*###*4Rf##########-3BRHf- 

50 REM MAJOR LOOP 

60 GOSUB 120: REM PRINTOUT 

70 GOSUB 280: REM ACCELERATION/CHECK 

80 GOSUB 4502 REM ENGINE/BRAKES 

90 GOSUB 500: REM CORNER/POSITION 

100 GOTO 60 

110 REM ***#**#*******##*###*## 

120 REM PRINTOUT 

130 PRINT" 

CCLRMPUR}" 

140 PR I NT "ENGINE TEMPERATURE " INT ( ENG*10> 

/10"C. (MAX. 200) " 

150 PRINT"BRAKE TEMPERATURE: " INT ( BRAK#10 

) /10"C. (MAX. 500) " 

160 PRINT" DISTANCE COVERED :" INT < DIST#10 

>/ 10 "METERS" 

170 PRINT" : " INT (DIST-K-10 

0/RR) /I 00 "LAPS" 

180 PRINT" YOU' RE IN POSITION" INT ( FP) 

190 PRINT" 



200 PRINT" CURRENT SPEED: " INT < SPEED*i 

0) /10"KPH" 

210 PRINT" : »INT<SPEED*5 

.555) /10"METERS PER MOVE" 

220 PRINT" 



230 PRINT"CORNER APPROACHING" INT < APP) "ME 

TERS" 

240 PRINT "RECOMMENDED SPEED: "C < C > "KPH " 

250 PRINT" 



260 RETURN 

270 REM ######-#*#**#*#*#*###•#** 

280 REM CHECK ACCELERATION AND FACTORS 

290 GET XSs: IF XS<>"Z" AND XS<>"M" AND XS 

< >CHR*(32) THEN 290 
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3.00 PRINTTAB< 12) % "OK" 

310 X=0 

320 IF XS3="M" THEN X=SPEED/15 

330 IF X$="Z" THEN X=-SPEED/I5 

340 NUM=NUM+l:REM NUMBER OF MOVES 

350 SPEED=SPEED+X 

360 IF SPEED<0 THEN SPEED=0 

370 TRAV=SPEED*. 5555: REM DISTANCE 

TRAVELLED 
380 dist=dist+trav:rem TOTAL DISTANCE 

TRAVELLED 
390 ENG=EN6+ (X/2) +O07S IF ENG < 70 THEM ENG 
=70+RND< i)*8:REM ENGINE TEMP 
400 IF X>0 THEN BRAK=BRAK*.9:REM BRAKE 

TEMP FALLING? ACCELERATING 
410 IF X<i THEN BRAK=BRAK- < 3*X > -RND ( i ) *3 
SREM BRAKE TEMP INCREASING! BRAKING 
420 IF BRAK<8 THEN BRAK=8+RND ( I ) #8 
430 PRINT" 
<:WHT>" 5 ".RETURN 

440 REM #####*####*##*###**4BHRf 
450 REM CHECK ENG I ME /BRAKE TEMP 
46.0 IF ENG>200 THEN PR I NT "YOUR ENGINE HA 
S OVER HEATED": GOTO 830 

470 IF BRAK>500 THEN PR I NT "YOUR BRAKES H 
AVE OVERHEATED" : GOTO 830 
480 RETURN 

49.0 REM ******#****#*#*#*■**###*• 
500 REM CHECK CORNERING SPEED 

AND FIELD POSITION 
510 APP=APP~TRAV 
520 IF APPX0 THEN RETURN 
530 CRASH-0 

540 IF SPEEDXC <C)#I . 125) THEN CRASH=I:G 
OTO 690 

550 IF SPEEDXC(C)^l.l) THEN GOTO 690 
560 PNT=PNT+100- ( (C (C)*l. 1) -SPEED) : REM 
CORNERING POINTS 

570 NC=NC+I:REM NUMBER OF CORNERS 
580 CP=96- (PNT/NC) : REM CORNERING 

POSITION 
590 AM=AM+A(C) : REM AVERAGE NUMBER 

OF MOVES ALLOWED 
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600 rp=num-am:rem racing position; your 

moves minus average moves 
610 fp=(cp+rp) /2srem field position is 
average of corner & race positions 
620 if fp<1 then fp=i 

630 C=C-8-l 

640 IF C=WW THEN C=lSREM LAP OVER 

650 APP=APP+D(C) 

660 IF LAP*QQ=AM THEN 910: REM RACE OVER 

670 RETURN 

680 REM #*********#*****#*##-*■*-* 

690 REM CRASHED 

700 PRINT" 

(CLR) 

710 PRINT"YOU CORNERED AT " INT ( 10-K-SPEED) / 

i0"KPH" 

720 PR I NT "AND THE MAXIMUM SPEED WAS JUST 

" C ( C ) 

730 GOSUB 2330 

740 PRINT"YOU SPIN OFF THE TRACK..." 

750 GOSUB 2330 

760 IF CRASH=1 THEN 830 

770 PRINT" YOU'VE LOST 20 SECONDS, BUT YO 

U'RE ABLE TO REJOIN THE RACE" 

7S0 NUM=NUM+10S SPEED=INT (2#C (C) /3> 

790 PNT=PNT+50 

800 GOSUB 2330 

810 GOTO 570 

820 REM ^^^^^^^^^^■&-&-&-3f •&•#■&■•&■&■#"■&■&■& 

830 PRINT" ......AND CRASH!!!!!" 

840 PRINT" 



850 PR1NT"Y0U ONLY COMPLETED " INT < DIST*10 

) / 10" METERS. " 

860 PRINT"OR" INT < DIST*100/RR > /100"LAPS A 

ND AT THAT" 

870 PRINT"STAGE YOU WERE IN POSIT ION" INT 

<FP> 

880 PRINT" 



390 GOTO 1050 
910 REM RACE OVER 
920 PRINT" 
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{CLR> " 

930 EFLAG=i 

940 FOR X=l TO 20 

950 PRINTTABCX) ; "WELL DONE, "?AS?"M" 

960 PRINTTAB(21-X> 5 "WELL DONE, "I A*?"!!" 

970 NEXT X 

980 PRINT" 



990 PR I NT" YOU MANAGED TO LAST OUT THE FU 

LL "LAP "LAP RACE..." 

1000 PRINT" 



1010 GOSUE 2330 

1020 PR I NT "YOU FINISHED IN POSITION" INT < 

FP) 

1030 PR I NT "AFTER STARTING IN 6TH POSIT 10 

N . . . " 

1040 GOSUB 2330 

1050 PR I NT "YOUR AVERAGE SPEED WAS" INT (DI 

ST#180/NUM) /100"KPH" 

1060 GOSUB 2330 

1070 IF RP<1 THEM RP=1 

1080 IF CP<1 THEN CP=1 

1090 PR I NT "YOU WERE" INT (ABS(RP) ) "TH FAST 

EST ON THE STRAIGHTS, " 

1100 PRINT"AND"INT(ABS(CP) ) "TH FASTEST O 

N THE CORNERS. " 

1110 PRINTS PR I NT "PRESS 7 S' FOR SAME RACE 

, 'N' FOR NEW RACE, 'E' TO END" 

1120 GET im: IF ISK>"S" AND I*O n N" AND I 

*<>"E" THEN 1120 

1130 IF I$= "E" THEN END 

1140 GOSUB 2240 

1150 RESTORE 

1160 IF IS3="S" THEN GOSUB 1490S LAP=L2AP: 

GOTO 60 

1170 IF 135= "N" THEN PRINT" 

{CLR}": GOSUB 1250: GOTO 60 

1180 REM ###*#**##**###**##**###-# 

1190 REM NAME AND TRACK DATA 

1200 INPUT "WHAT IS YOUR NAME, DRIVER" ? A 

$ 

1210 PRINT 
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1220 FOR X=i TO 3 

123.0 PRINT TAB<X*4> \ "OK ? GOOD LUCK, " ? AS 

1240 GOSUB 2330: NEXT X 

1 250 PR I NT " ***************************** 

***** **** " 

1260 PR I NT "WHICH RACE DO YOU WANT TO TAK 

E PART INS " 



1280 

50MT 

1290 

00MT 

1 300 

00MT 

1310 

00MT 

1320 

1330 

4) " 

1340 

1350 

1360 



PRINT 

PRINT 

: 1 " 

PRINT 

PRINT 
S3" 

PRINT 
I 4 " 

PRINT 

PRINT 



TAB ( 7) I "BRITISH GRAND PRIX 26 



TAB ( 7) ; "GERMAN GRAND PRIX 17 



TAB < 7) S "ITALIAN GRAND PRIX 22 



TAB (7) | "MONACO GRAND PRIX 31 



TAB (7) ; "ENTER A NUMBER (1 TO 



GET K* 

IF KS3< " 1" OR KS>"4" THEN 1340 
GP=\/AL<K*> 

1 370 PR I NT " ***************************** 
********* " 

1380 PRINT TAB(8)|"OK 5I THE "5 
1390 IF GP=I THEN PRINT "BRITISH" J 

PR I NT "GERMAN" % 
PRINT" ITALIAN" \ 
PRINT "MONACO" ? 



1 400 
1410 
1420 
1430 



IF GP=2 THEN 
IF GP=3 THEN 
IF GP=4 THEN 
PRINT" RACE" 



1440 PRINT ***************************** 
********* " 

1450 PR I NT SPRINT "OVER HOW MANY LAPS?" 

1460 INPUT LAPS IF LAP< 1 THEN 1460 

1470 LAP=INT (LAP+.5) SL2AP=LAP 

1480 REM ************************ 

1490 REM BRITISH DATA 

1500 SPEED=140 

1510 FOR X=l TO 9 

1520 READ D<X)SREM DISTANCE BETWEEN 

CORNERS 

1530 NEXT X 
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1 540 DATA 8.00 , 400 , 250 , 200 , 250 , 300 , i 00 , 1 
0,250 

1550 FOR X=l TO 9 

1560 READ C(X> 

1570 NEXT X 

1580 DATA 150,90,175,200,200,90,90,150,1 
50 

1590 FOR X=l TO 9 

1600 READ A(X)SREM AVERAGE NUMBER OF 
MOVES ALLOWED BETWEEN CORNERS 

1610 NEXT X 

1620 DATA 8,4,2,2,2,2,1,1,2 

1 630 APP=800 : WW= 10 : QQ=24 : RR=2650 

1640 IF GP=1 THEN RETURN 

1650 REM ##****###**##***#*###*## 

1660 REM GERMAN DATA 

1670 SPEED=85 

1680 FOR X=l TO 7 

1690 READ D(X) 

1700 NEXT X 

1710 DATA 600 , 200 , 1 00 , 1 50 , 250 , 200 , 200 

1720 FOR X=l TO 7 

1730 READ C(X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1740 NEXT X 

1750 DATA 90,175,120,90,200,200,175 

1760 FOR X=l TO 7 

1770 READ A<X) 

1780 NEXT X 

1790 DATA 6,2,1,2,2,2,2 

1 800 APF=600 : WW=8 ". Q6J= 1 7 : RR= 1 700 

1810 IF GP=2 THEN RETURN 

1820 REM #####***###**###**•****## 

1830 REM ITALIAN DATA 

1840 SPEED=108 

1850 FOR X=l TO 7 

I860 READ D(X) 

1870 NEXT X 

1 880 DATA 800 , 300 , 1 00 , 1 50 , 300 , 350 , 200 

1890 FOR X=l TO 7 

1900 READ C(X>;REM RECOMMENDED 

MAXIMUM CORNERING SPEED 

1910 NEXT X 
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i 920 DATA 1 20 , 90 , 90 , i 50 , 200 , 12.0, 1 50 

1930 FOR X=l TO 7 

1940 READ A(X> 

1950 NEXT X 

1960 DATA 8,3,3,1,3,3,2 

1 970 APP=800 : WW=S : QQ=22 : RR=2200 

1980 IF GP=3 THEN RETURN 

1990 REM *###***###*############# 

2000 REM MONACO DATA 

2010 3PEED=162.5 

2020 FOR X=l TO 14 

2030 READ D(X) 

2040 NEXT X 

2050 DATA 400 , 1 00 , 1 00 , 300 , 400 , 300 , 1 50 , 20 

0,200,200 

2060 DATA 1 50 , 1 50 , 200 , 250 

2070 FOR X=l TO 14 

2080 READ C(X):REM RECOMMENDED 

MAXIMUM CORNERING SPEED 
2090 NEXT X 

2 100 DATA 1 75 , 1 50 , 1 75 , 200 , 1 20 , 200 , 1 75 , 90 
,175, 150 

2110 DATA 150,175,120,150 
2120 FOR X=l TO 14 
2130 READ A(X) 
2140 NEXT X 

2150 DATA 4,1,1,3,4,3,1,2,2,2 
2160 DATA 1,2,2,2 

2170 APP = 400S WW=15S QQ=30S RR=3I00 
2180 RETURN 

2190 REM ###**#***###4Bf****#tt**-&# 
2200 REM INITIALISATION 

2210 POKE 53280,0 SPOKE 53281 , 0S PRINT " 
<CLR>" 

2220 X=RND<VAL(RIGHT5MTI95,2> ) ) : REM 
RANDOMIZE 

2230 DIM A<14) ,C <14) ,D(14) 
2240 C=iSFP=6:PNT=0SNC=0SCP=0 
2250 AM=0 : RP=0 : APP=0 
2260 NUM=0:REM NUMBER OF MOVES 
2270 ENG= 1 00 • BR AK= 1 : TR AV=0 : D I ST=0 
2280 EFLAG=0 
2290 X=0 
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2300 


RETURN 


M.'tLiLM.M.^LiLM.iLil.M. 


2310 


REM *^**TT**Tr*"K - 'K*"K" - 7«"T^T , r7ir^TV« /v a n n n 


2320 


REM DELAY 




2330 


FOR 0=1 TO 1000S NEXT 


2340 


RETURN 




4000 


SID=54272 




4010 


FOR Li=0 TO 23 




4020 


POKE SID+L1,0 




4030 


NEXT LI 




4040 


POKE SID+24 5 15 




4050 


POKE SID+5,15 




4060 


POKE SID+6p255 




4070 


POKE SID+4 ? 17 




40S0 


FOR L1=4S TO 220 


STEP .7 


4090 


POKE SID+i ? Ll 




4100 


NEXT LI 




4110 


FOR LI =28 TO 200 




4120 


POKE SID+l s Li 




4130 


NEXT LI 




4140 


FOR LI =200 TO 28 


STEP -1 


4150 


POKE SID+lpLi 




4160 


NEXT LI 




4170 


POKE SID+1,0 




4180 


RETURN 
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10 REM FLIGHT SIMULATION 

20 RPT=0 

30 LD=INT(RND( 1)*360> 

40 DIM E*( 1000): REM THIS HOLDS FLIGHT 

RECORD 
50 DIM A$<7> ,C*(7) :REM THESE ARRAYS 

HOLD HORIZON AMD COMPASS OUTPUT 
60 REM ^^fc^*************.***.**.** 
70 GOSUB 2320: REM INITALISE 
80 IF CRASH=0 THEN GOSUB 820: REM HORIZON 

/COMPASS 
90 GOSUB 500: REM PRINTOUT 
100 IF CRASH=1 THEN END 

110 IF LND=1 AND UFLAG=i THENGOSUB4000: P 
RINT"WELL DONE. A PERFECT LANDING !"; END 
120 IF LND=1 AND UFLAG=0 THEN PR I NT" YOUR 

WHEELS ARE UP": GOSUB 1780: GOTO 90 
130 T=AIRSPEED:SALL=0 
140 GET X* 

150 IF XS="R» THEN RPT=l:GOTO 70 
160 IF RPT=1 AND E3M CLOCK+ 1 ) = » " THEN RPT 
=0:GOTO 140 

170 IF RPT=1 THEN X*=E3= ( CLOCK + 1 ) 

180 IF X$="" THEN 140 

190 IF CL0CK<999 THEN E$ < CLOCK+ 1 ) =X$ 

200 IF TAKEOV=l THEN ELEVATE=INT ( ELEVATE 

+RND(l)*2-RND(i ) *3 ) 

210 IF AIRSPEED<3 THEN 290 

220 IF X$=»Q» THEN ELEVATE=ELEVATE+5 : EFL 

AG=5:iF ELEVATE>60 THEM SALL=1 

230 IF X$=»A" THEN ELEVATE=ELEVATE-5 : EFL 

AG=-5:iF ELEVATE<-70 THEN SALL=-1 

240 IF SALLO0 THEN GOSUB 1640 

250 IF ALTIMETER<1 THEN 290: REM PREVENTS 

DRAMATIC TURNS ON THE GROUND 
260 IF X$=''2» THEN WA=WA- . 5 : ANG=ANG-6 : IF 

WA<-3 THEN WA=-3 
270 IF X*="M" THEN WA=WA+ . 5: ANG=ANG+6 : IF 

WA>3 THEN WA=3 
280 ANG=INT<ANG + RND( 1>*2-RND< 1 ) *2 > 
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290 IF XS5=CHR*<32> THEN AIRSPEED=AIRSPEE 

D + 8. 5 

300 IF X33="." THEN AIRSPEED=AIRSPEED-7 

310 AIRSPEED=AIRSPEED-ELEVATE/5 

320 IF UFLAG=i THEN AIRSPEED=AIR3PEED- 1 . 

5:FUEL=FUEL-.5 

330 IF AIRSPEED<0 THEM AIR3PEED=0 

340 IF AIRSPEED>400 THEN AIRSPEED=400 

350 IF X*="l" AND UFLAG=0 THEN UFLAG=l:G 

OTO 370 

360 IF X35=" 1" AND UFLAG=1 THEN UFLAG=0 

370 FUEL=FUEL- < ABS ( T-AIRSPEED > f 10) -3.75 

380 IF FUEL<1 THEN GOSUB 1780 

390 IF TAKEOV=l THEN 420 

400 IF ELEVATE>10 AND AIRSPEED>45 AND AI 

RSPEED<60 AND UFLAG=1 THEN TAKEOV=l 

410 IF TAKEOV=0 THEN ALTIMETERS: GOTO 45 



420 IF LND=0 AND AIRSPEED<30 THEN ELEVAT 

E=ELEVATE~5: ALT IMETER=9#ALT IMETER/ 10 

430 ALTIMETER=ALTIMETER+INT< ( 'ELEVATE+.i 

>#AIRSPEED> +EFLAG*AIRSPEED/I000} /S0 

440 IF ALTIMETER<300 AND TAKEOV=l THEN A 

LTIMETER=ALTIMETER+AIRSPEED/30+ELEVATE 

450 IF ALT I METER <0 THEN GOSUB 1 780 : REM 
CRASH 

460 REM CHANGE NEXT TWO LINES TO MAKE IT 
EASIER (OR EVEN HARDER) TO LAND 

470 IF ALTIMETER>15 AND AIRSPEED >20 OR T 

AKEGV=0 THEN 80 

480 IF ABS(ANG-LD) < 13 OR ABS ( ANG+360-LD ) 

<13 THEN LND=i:GOTO 80 

485 GOTO 30 

490 REM #**#####**#*####*#-£#-■#-*-*#-* 

500 REM PRINTOUT 

510 PRINT" 

{CLR} " 

520 PRINT" HORIZON" ?TAB (20) 5 "HEADING" 

530 EV= I NT (ELEVATE/ 10) 

540 IF EV>2 THEN EV=2 

550 IF EV<-2 THEN EV=-2 

560 IF EV< >0 AND TAKEOV=l AND CRASH=0 TH 

EN GOSUB 1920 
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570 PRINT ": : : « 

580 FOR J=l TO 7 

590 print": ■• ; A* < J ) ; " : » ; c* < J > ; " : » 
600 A* ( J ) = " " 
610 NEXT J 

62.0 PRINT ": : » 

630 DIST=DIST+ABS ( ( COS < ELEVATE ) )*AIRSPEE 

D ) / 360 

640 CLOCK=CLOCK+l 

650 PR I NT " : RANGE " I NT < D I ST* i ) / 1 " : T I ME " 

INT (CLOCK) /105 " : "LD 

660 PRINT " : ... 

670 PRINT": AIRSPEED : M INT (AIRSPEED) 

6S0 PRINT": "? LEFTS < QS> s I NT < AIRSPEED/ 20 ) ) ; 
ii -J. ■■ 

690 PRINT": ALTIMETER: "INT (ALTIMETER) ; 
700 IF ANG<0 THEN PRINTTAB ( 1 9 ) 5 360+ANG " D 
EG. " 

710 IF ANG>=0 THEN PRINTTAB ( 19 )? ANG " DEG . 
■I 

720 MR=INT (ALTIMETER/30) : IF MR>20 THEN M 

R=20 

730 PR I NT " : " ; LEFTS. < Q* , MR ) ; " > " 

740 PRINT"SFUEL : "INT (FUEL) 

750 PRINT": "5LEFT*(Q^ ? INT (FUEL/ 45) ) ? ">" 

760 PRINT " : ;» 

770 PRINT": ELEVATION: "ELEVATE": »; : GOSUB 

2210:PRINTUS 
780 IF UFLAG=1 THEN PRINT " : " ; TAB ( 5 ) ; " > 
UNDERCARRIAGE DOWN < : » 

790 IF UFLAG=0 THEN PRINT " : " 5 TAB < 6 ) ? " > 
UNDERCARRIAGE UP < • " 
800 RETURN 

810 REM ****######*###*#**.£#.£.£.£.£.£ 
820 REM ASSIGN HOR I ZON/ COMPASS 
830 IF ABS(INT(WA+.5) ) =3 THEN GOSUB 930 
84.0 IF ABS(INT(WA+.5) ) =2 THEN GOSUB 1070 
850 IF AB3(INT(WA+.5) )=1 THEN GOSUB 1160 
860 IF INT(WA+.5)=0 THEN GOSUB 1250 
370 REM NEXT TWO LINES USED TO 

GRADUALLY STRAIGHTEN UP WINGS 
380 IF WA>0 THEN WA=WA-.2 
890 IF WA<0 THEN WA=WA+.2 
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900 


IF WA>. 


2 THEN 1350 


910 


FOR Z=l TO 7 


920 


M*(8-Z> =A*(Z) 


930 


NEXT Z 


940 


FOR Z=l TO 7 


950 


M*(Z> =A*<Z> 


960 


NEXT Z 


970 


GOTO 1350 


980 


REM WA=3 OR -3 


990 


ft* < 1 > = " * » 


1 000 


A* i 2 ) = " ##• 


1010 


A* ( 3 ) = " #■* 


1020 


A* C 4 ) = " •&•* 


1030 


A* ( 5 ) = " #•& 


1040 


A* ( 6 ) = " •*■* 


1050 


A*(7)="-*Bf 


1060 


RETURN 


1070 


REM WA=2 OR -2 


1080 


A* ( 1 ) = " 


1090 


A* ( 2 ) = " ## 


11.00 


A* < 3 ) = " ##-* 


111.0 


A* ( 4 ) = " #■&-£ 


1 1 20 


A* ( 5 ) = " #•#••£• 


1130 


A* ( 6 ) = " ### 


114.0 


A* ( 7 ) = " 


1150 


RETURN 


116.0 


REM WA=1 OR -1 


1170 


A* ( 1 ) = 


' 


11S.0 


A*<2> = 


■ 


1 1 9.0 


A*(3>= 


7T « n" Of ")r 


1200 


A*<4) = 


##■■*•*■** 


1210 


A* (5)= 


■«"7?' "ft"7T 


1220 


A* ( 6 ) = 


I 


1230 


A* (7)= 


I 


1240 


RETURN 


1250 


REM WA=0 


1260 


A* ( 1 ) = " 


1270 


A* ( 2 ) = " 


1280 


A* ( 3 ) = " 


1290 


A* ( 4 ) = " -*#■#"**-£#"*### •£#*- 


1 300 


A* ( 5 > = " 


1310 


A* ( 6 ) = " 


1320 


A* (7) =' 


I 
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1330 RETURN 

1340 REM *#*#*#*#**##**#**###*#*# 

1350 REM ASSIGN COMPASS STRINGS 

1360 F2=ANG-F1 

1365 F2=ANG 

1370 IF F2<0 THEN FA=INT < ( F2 + 375 ) /3.0) 

1380 IF F2>=0 THEN FA=INT < < F2+ 15 > /30> 

1390 IF FA=12 THEN FA=0 

1400 C*(l>=" ,N. 

1410 IF FA=11 THEN C*<2)=" =@S.„ " : GOTO 

1450 

1420 IF FA=0 THEN C*(2)=" ..©.„ " : GOTO 
1450 

1430 IF FA=1 THEN C*(2)=" „ . : @ . " : GOTO 
1450 

1440 C3M2)=" ..:.., " 

1450 IF FA=10 THEN C3M3>=" . @ : . . » : GOTO 

1480 

1460 IF FA=2 THEN C*(3)= M . . : @„"SGOTO 
1480 

1470 C*(3) =" . . : 

1480 IF FA=9 THEN CS(4)=" W@-X- -E " : GOTO 

1510 

1490 IF FA=3 THEN C$(4>=" W--X-6E " : GOTO 

1510 

1500 C$(4)=" W--X--E" 

1510 IF FA=8 THEN C$(5)=" D @ : 

1540 

1520 IF FA=4 THEN C$<5>=" . . : 

1540 

1530 C*(5) =" . . • 

1540 IF FA=7 THEN C35(6^=" „@: 

1580 

1550 IF FA=6 THEN C*(6)= M 

1580 

1560 IF FA=5 THEN CnM6)=" . ,:@. » : GOTO 

1580 

1570 C* <6) =• . . : . . » 

1580 C*(7)=" . S. " 

1590 IF ANG>360 THEN ANG=ANG-360 

1600 F2=ANG 

1610 IF W>0 THEN W=W-.4 

1620 IF W<0 THEN W=W+ . 4 



. . " : GOTO 
@. " ZGQTO 

. " : GOTO 
@. . " : GOTO 
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163.0 RETURN 

164.0 REM STALL/FALL 

1650 IF SALL=-1 THEN 1710 

1660 FOR 3=1 TO 10 

1670 PRINTTAB< J) ; "YOU HAVE STALLED!!" 

1680 NEXT J 

1690 AIRSPEED=AIRSPEED/4 

1700 RETURN 

1710 FOR J=l TO 10 

1720 PRINTTAB'J) ? "UNCONTROLLED DIVE!!" 

1730 PR I NTT AB( 21- J) ; "PULL UP!!" 

1740 NEXT J 

1750 ALTIMETER=ALTIMETER/4 

1760 RETURN 

1770 REM #*##**#**##^*##**##-*-#-3f-& 

1780 REM CRASH 

1790 CRASH=1 

1800 ALTIMETER=0 

1310 M<£="## #C R** A ■*■* S* H* ! !*":REM 

25 CHARACTERS LONG 

1820 FOR J=l TO 20 

1830 PRINTTAB(J) ; "CRASH! " 

1840 PRINTTAB(21-J) ? "CRASH! " 

1850 NEXT J 

1860 FOR J=l TO 7 

1870 G=INT <RND< 1 >-#li> +1 

1S80 A*t J)=MID*<M*,G, 14) 

1390 NEXT J 

1900 RETURN 

1910 REM *****##*######****-&-£"£-&-&-& 

1920 REM ADJUST HORIZON 

1930 G*=" "SREM 14 SPACES 

1940 ON EV+3 GOSUB 1 960 ? 2020, 2070 , 2080 s 2 
140 

1950 RETURN 

1960 REM EV=-2 

1970 FOR J=l TO 4 

1930 ASM J)=A$( J +3) 

1990 NEXT J 

2000 A$ (5) =G$: A^ (6) -G^l A* ( 7 ) =G* 

2010 RETURN 

2020 REM EV=-1 

2030 FOR J=l TO 6 

320 



Commodore 64 



2040 A* ( J ) =A* < J + .1 } 

2050 NEXT J 

2060 A*(7)=G* 

2070 RETURN: REM EV=0 

2080 REM EV=1 

2090 FOR J=6 TO 1 STEP - 1 

2 i 00 A* ( J + 1 ) = A* < J ) 

2110 NEXT J 

2120 A*(1)=G* 

2130 RETURN 

2140 REM EV=2 

2150 FOR J=4 TO 1 STEP -1 

2160 A*< J +3) =A*( J) 

2170 NEXT J 

2 1 80 A* (• I ) =G35 : A<£ < 2 ) =G$ : A* ( 3 ) =G* 

2190 RETURN 

2200 REM #*%##**#*#######**#.&.£3.#3. 

2210 REM INPUT INTO COMMAND NAME 
2220 US=" » 

2230 IF XS5=CHRS3<32) THEN U$5= " THROTTLE ON 
■I 

2240 IF X35="." THEN U*= " THROTTLE OFF" 
2250 IF X$=»Q" AND ALT I METER >0 THEN U*= •• 
CLIMB" 

2260 IF X*="Q" AND ALTIMETER=0 THEN U*=" 

NOSE UP" 

2270 IF X$="A" THEN US>="NOSE DOWN" 

2280 IF XS5="Z" THEN U*= M BANK LEFT" 

2290 IF X^="M" THEN U*= M BANK RIGHT" 

2300 RETURN 

2310 REM #**##*#*##**#*###*##*.£## 

2320 REM INITIALIZATION 

2330 POKE 53280,0: POKE 53281 , 0: PR I NT " 

CCLR}{PUR>" 

2340 J=RND <VAL (RIGHT* (T I* , 2) ) ) : REM 

RANDOMIZE 

2350 Q*= "- . »:REM 

21 CHARACTERS IN STRING 
2360 UFLAG=l:REM UNDERCARRIAGE - 

1 - DOWN, - UP 
2370 EFLAG=l:REM CLIMB RATE 
2380 ANG=0: TAKEOV=0: LND=0 
2390 AIRSPEED=0 
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2400 DIST=0:REM DISTANCE COHERED 'RANGE 

2410 ALTIMETER=0 

2420 ELEVATE=0:REM ANGLE OF ELEVATION 

2430 WA=0:REM WING ANGLES USED IN 

HORIZON PRINTOUT 

2440 FUEL=750:CRASH=0:F2=0: F 1=0: REM 

FOR DIRECTION CHANGE / COMPASS ROUTINE 

2450 CLOCK=0:REM TIME 

2460 X*=" " 

2470 RETURN 

4000 SID=54272 

4010 FOR L1=0 TO 23 

4020 POKE SID+L1,0 

4030 NEXT LI 

4040 POKE SID+24,15 

4050 POKE SID+5, 15 

4060 POKE SID+6,255 

4070 POKE 510+4,17 

40S0 FOR LI =48 TO 220 STEP .7 

4090 POKE SID+1 S L1 

4100 NEXT LI 

4110 FOR LI =28 TO 200 

4120 POKE SID+1,L1 

4130 NEXT LI 

4140 FOR LI =200 TO 23 STEP -1 

4150 POKE SID+1,L1 

4160 NEXT LI 

4170 POKE SID+1,0 

4180 RETURN 
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